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ABSTRACT 


This  paper  discusses  the  design  and  specification  of  a 
general  purpose  operating  system  for  the  proposed  All 
Application  Digital  Computer.  The  objective  is  to  develop  a 
system  which  is  relatively  hardware  independent,  adaptable, 
comprehensive,  maintainable  and  functional  in  a  multipro- 
cessing, multiprogramming  environment.  The  operating  system 
model  is  defined  by  using  the  techniques  of  Structured 
Programming,  Decision  Hiding,  and  Multi-Level  Hierarchical 
Ordering.  An  initial  set  of  functional  reguirements  and 
system  constraints  are  postulated  from  which  additional 
functions  are  defined  and  assigned  to  modules  for  further 
specification.  The  modules  are  grouped  into  two  classes; 
system  processes  which  provide  services  to  applications  pro-' 
grams  such  as  input/output  operations,  and  primitives  which 
allow  for  the  dynamic  creation  and  control  of  processes  as 
well  as  the  interprocess  communications.  Finally,  formal 
parameter  specifications  are  developed  which  identify  the 
module   interfaces,   functions,  and  proposed  implementation. 
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I.   INTRODUCTION 

In  the  1960's  the  Navy  saw  a  proliferation  of  various 
types  of  computers  and  found  itself  faced  with  enormous  and 
expensive  computer  procurement  and  support  problems.  Thus, 
in  1968  the  Naval  Air  Systems  Command  undertook  the  design 
and  development  of  a  modular  digital  computer  system 
(Advanced  Avionic  Digital  Computer)  for  future  naval  air 
computing  reguirements.  The  impetus  for  the  project  was 
cost  reduction  through  the  application  of  standardization 
and  modularity.  By  using  standardized  modular  hardware  and 
software  components,  the  proposed  AADC  system  could  be 
configured  as  a  simple  minicomputer,  a  complex  multi^ 
processor  system,  or  anything  in  between.  In  1972,  the 
Department  of  the  Navy  recognized  the  potential  of  this 
computer  and  expanded  its  role  from  the  Advanced  Avionic 
Digital  Computer  to  the  All  Application  Digital  Computer 
(AADC) .  The  AADC  system,  which  is  still  in  the  advanced 
development  stage,  is  intended  to  satisfy  the  entire 
spectrum  of  Naval  Airborne  and  general  purpose  computing 
reguirements  for  the  1978-1990  time  period  [Refs.  1  and   2]. 

A.   MODULAR  OPERATING  SYSTEMS 

The  advent  of  complex,  multipurpose  computer  systems 
necessitated  the  development  of  an  operating  system  which 
guided  a  computer  in  the  performance  of  its  tasks  and 
assisted  the  applications  programs  with  certain  supporting 
functions.  Shaw  [F.ef.  3]  defined  an  operating  system  as 
"an  organized  collection  of  (systems)  programs  that  acts  as 
an  interface  between  machine  hardware  and  users,  providing 
users  with  a  set  of  facilities  to  simplify  the  design, 
coding,  debugging,  and  maintenance  of  programs;  and,  at  the 
same  time,  controlling  the  allocation  of  resources  to  assure 
efficient  operation."   The   complexity   of   these   operating 
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systems  varied  according  to  the  size  and  purpose  cf  the 
computer  installation;  i.e.,  from  single  CPU  monoprogrammed 
to  multiprocessor,  multiprogrammed  systems.  Host  of  the 
existing  third  generation  computer  operating  systems  were 
designed  as  highly  interdependent,  complex  systems.  Once 
these  systems  had  been  inplemented,  any  changes, 
improvements,  or  corrections  were  difficult  and  costly. 
Benson  [Bef.  4]  described  some  of  the  conseguences  of  these 
complex  systems  as: 

Instead  of  the  programming  task  becoming  easier  with 
more  sophisticated  machines,  it  has  become  increasingly 
more  difficult.  Large  and  intricate  computer  programs  are 
being  constructed  and  as  a  direct  consequence  the  task  of 
demonstrating  that  the  programs  are  correct,  that  is  they 
are  producing  in  ail  cases  the  correct  output  for  the 
input  data,  is  nearly  impossible. 

Another  consequence  of  increased  proqram  complexity  is 
the  increased  cost  of  design  and  implementation.  Although 
hardware  costs  are  generally  decreasing,  the  cost  of 
software  is  increasing  dramatically... 

In  an  attempt  to  solve  the  above  two  problems  the 
technigue  of  "structured  programming"  has  been  proposed. 

The  primary  advantages  of  the  Modular  Design  Method 
("Structured  Programming")  have  been  increased  system 
reliability,  reduced  complexity,  and  ease  of  modification. 
Conseguently,  the  software  development  and  support  costs 
have  been  reduced. 

B.   BE5EAECH  GOALS 

The  goals  of  this  research  were  to  develop  a 
modularized,  general  purpose  operating  system  for  the  AADC, 
and  to  specify  the  modules  and  module  interfaces  in  a 
functional  notation.  D.  L.  Parnas  [Ref.  5]  described  the 
criteria  to  be  used  for  module  specification  as: 

1.  The  specification  must  provide  to  the  intended  user 
all  the  information  that  he  will  need  to  use  the  program 
correctly,  and  nothing  more. 

2.  The  specification  must  provide  to  the  implementer  all 
the  information  about  the  intended  use  that  he  needs  to 
complete  the  program,  and  no  additional  information;  in 
particular,  no  information  about  the  structure  of  the 
calling  program  should  he  conveyed. 
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3.  The  specification  must  be  sufficiently  formal  that  it 
can  conceivably  be  machine  tested  for  consistency, 
completeness  (in  the  sense  of  defining  the  outcome  of  all 
possible  uses)  and  other  desirable  properties  of  a 
specification. 

4.  2he  specification  should  discuss  the  program  in  the 
terms  normally  used  by  user  and  implementer  alike  rather 
than  seme  other  area  of  discourse. 

These  goals  were  achieved  by  employing  the  modular  design 
concept  in  a  "top  down"  approach  to  design  and 
iaplementation.  To  attain  these  objectives,  the  research 
was  organized  as  follows: 

1.  Define  the  design  philosophy  and  heirarchy, 

2.  Define  preliminary  specifications  for  each  module, 
3-.  Design  the  modules, 

4.  Implement  the  modules, 

5.  Test  the  model, 

6.  Define  formal  specifications  for  each  module. 
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II .   AADC  OPERATING  SYSTEM  DESIGN  METHODOLOGY 

By  applying  the  concept  of  modularity  and  the  "decision 
hiding"  criteria,  the  operating  system  has  been  defined  as  a 
set  of  hierarchical  modules  which  have  facilitated  the  "top 
down"  design  and  implementation.  As  presented  in  the 
following  sections  of  this  chapter,  these  techniques  have 
provided  the  means  of  expressing  a  large  system  as  a  logical 
ordering  of  less  complex  components. 

A.   MODULAR  DESIGN  CONCEPT 

The  modular  design  concept  has  been  described  by 
Gouthier  and  Pont  [Ref.  6]  as: 

A  well  defined  segmentation  of  the  project,  .effort 
ensures  system  modularity.  Each  task  forms  a  separate, 
distinct  program,  module.  At  implementation  time  eacn 
module  and  its  inputs  and  outputs  are  well  defined;  there 
is  no  confusion  in  the  intended  interface  with  other 
system  modules.  At  checkout  time  the  integrity  cf  tne 
module  is  tested  independently;  there  are  few  scheduling 
problems  in  synchronizing  the  completion  of  several  tasks 
cefore  checkout  can  begin.  Finally,  the  system  is 
maintained  in  modular  fashion;  system  errors  and  dificien- 
cies  can  be  traced  to  specific  system  modules,  thus 
limiting  the  sccpe  of  detailed  error  searching. 

In  recent  years,  there  have  been  a  number  of  proponents 
(Dijkstra,  Parnas,  Brinch  Hansen,  to  name  a  few)  for  a 
modular  design  approach  for  developing  large  programs.  The 
basic  justification  for  this  approach  has  been  to  allcw  the 
design  cf  a  system  to  proceed  in  a  hierarchical  way.  By 
treating  the  system  as  a  set  of  basic  components,  specifying 
the  requirements/functions  of  each  and  then  treating  each 
component  as  a  system  (module),  the  original  system  has  been 
divided  into  a  set  of  independent  modules.  Consequently, 
the  hierarchical  organization  in  the  operating  system  model 
has  simplified  module  specification,  implementation  and 
testing. 
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Many  operating  systems  in  past  years  have  been  designed 
with  inadequate  methods  of  program  construction.  Although 
specific  reguirements  have  been  given,  the  design  has 
proceeded  with  the  impetus  on  efficient  resource  utilization 
at  the  expense  of  long  term  systems  reliability  and 
maintainability.  This  conventional  approach  has  restricted 
the  versatility  of  the  computer  system  and  thereby  limited 
the  applications  programmer's  ability  to  design  more 
advanced  programs  reguiring  extended  computer  capabilities. 
Additionally,  any  attempt  to  expand  or  modify  the  existing 
operating  system  to  provide  more  services  had  been  difficult 
because  of  the  rigid  set  of  specifications  in  its  basic 
design  [Sefs.  7  and  8].  D.  L.  Parnas  [Hef.  9]  has  proposed 
a  solution  to  the  problem  as: 

The  basic  justification  for  the  design  methodology 
presented  an  old  precept  from  engineering  design:  a 
problem  must  be  defined  before  it  is  solved.  The  result 
was  a  methodology  which  laid  great  stress  on  specifying 
the  behavior  of  a  system  or  a  component  in  a  system  before 
producing  the  design... 

The  premise  that  we  should  proceed  by  specifying  the 
behavior  cf  a  system  before  designing  its  components 
implies  that  we  can  no  longer  look  at  an  operating  system 
as  an  item  to  be  placed  on  a  previously  designed  piece  of 
hardware.  The  actual  design  should  begin  with  a 
specification  of  the  overall  behavior  of  the  hardware- 
software  combination.  It  continues  by  dividing  the  system 
into  components  and  they,  in  turn,  are  designed  with 
little  cr  no  attention  to  the  question  of  what  will  be 
hardware  and  what  will  be  software  until  very  late  in  the 
design. 

The  principle  goals  of  the  Modular  Design  Concept  as  applied 
to  the  development  of  an  AADC  operating  system  have  been  to 
define  the  overall  system  reguirements  and  to  satisfy  these 
reguirements  by  designing  and  implementing  independent 
modules  with  well-defined  interfaces. 

B.   THE  DECISION  HIDING  CRITERIA 

Unlike  the  conventional  modular  design  which  had  defined 
operating  system  modules  according  to  function,  the  decision 
hiding  technique  has  been  used  to  modularize  a  large  system 
in  a  different  way.  Decision  hiding  has  been  proposed   as   a 
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means  of  decomposing  a  large  system  into  modules  based  on 
isolating  the  decisions  made  at  each  stage  of  the  design. 
Initially,  a  set  of  basic  decisions  has  been  specified  to 
define  the  operating  system  (i.e.,  multiprocessor, 
monoprogrammed,  shared  resources,  etc.).  Once  decision 
hiding  has  been  applied  to  obtain  a  module  for  a  specific 
decision,  the  technigue  may  be  re-applied  to  define 
decisions  for  submodules. 

Hodularization  by  this  technigue  has  provided  "a 
mechanism  for  improving  the  flexibility  and 
comprehensibility  of  a  system  while  allowing  the  shortening 
of  its  development  time"  [Ref.  10  J.  For  example,  in  the 
design  of  a  large  system  program  by  the  conventional  method, 
the  system's  data  structures;  i.e.,  control  blocks,  gueues, 
etc.,  have  been  accessed  directly  by  several  modules.  Since 
the  data  structures  have  served  as  interface  variables 
between  certain  modules,  a  change  in  the  format  has 
necessitated  a  corresponding  change  in  all  the  modules  using 
these  structures.  The  decision  hiding  criteria  added  the 
reguirement  that  each  data  structure  be  defined  separately 
and  managed  by  a  specific  module.  Conseguently , 
modification  of  a  data  structure  format  has  reguired  a 
change  to  only  one  module,  the  data  structure  management 
module,  since  the  interfaces  have  been  defined  explicitly. 

C.   THE  HIERARCHICAL  STRUCTURE 

The  modular  design  concept  using  decision  hiding  has 
resulted  in  the  decomposition  of  the  operating  system  into  a 
set  of  distinct  modules.  This  technigue  has  enhanced  system 
reliability  and  comprehensibility,  increased  flexinility  and 
made  testing  easier.  Further  improvements  in  these  areas 
have  been  achieved  by  ordering  the  modules  into  a 
hierarchical  structure  in  which  the  specific  relations 
between  the  modules  have  been  explicitly  defined. 
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Since  one  module  frequently  has  provided  services  to 
several  modules,  the  system  hierarchy  has  been  established 
by  identifying  the  use  or  dependency  relationships.  For 
example,  those  modules  which  identify  the  basic  functions  of 
the  operating  system  have  been  assigned  to  the  top  level  - 
level  N.  Each  subsequent  level  (N- 1,N-2,. . . , 1)  has  been 
formed  as  a  collection  of  those  modules  that  provide  the 
services  reguired  in  the  preceeding  level. 

Two  benefits  have  been  gained  from  the  establishment  of 
a  hierarchy.  Firstly,  the  upper  levels  have  been  simplified 
because  they  use  the  lower  levels  as  primitive  operations. 
Secondly,  the  lower  levels  may  be  used  as  a  subsystem 
because  they  do  not  require  the  services  of  the  modules  in 
the  higher  levels.  Therefore,  the  technique  of  hierarchical 
structuring  combined  with  the  previously  described  design 
techniques  have  established  a  means  of  developing  a 
well-defined  operating  system. 

D.   MODULE  INTERFACE  DECISIONS 

The  three  design  methodologies  define  the  technique  used 
in  designing  a  modular  operating  system.  As  the  functions 
and  requirements  were  identified  and  assiqned  to  separate 
modules,  the  specification  of  the  module  interfaces  with  the 
rest  of  the  system  was  necessary  to  permit  independent 
module  development.  These  interface  decisions  define  the 
conventions  for  passing  information  between  modules;  and,  in 
some  instances,  they  specify  the  data  format  and  type.  Once 
the  module  interfaces  were  defined,  system  design  proceeded 
with  strict  compliance  to  these  constraints.  In  this 
manner,  system  com prehensibility  was  enhanced  and,  although 
flexibility  appears  to  be  limited,  the  algorithm  developed 
for  each  module  may  be  readily  changed  provided  the 
interface  reguirements  are  jiot  violated.  Since  the 
operating  system  will  be  composed   of   functionally   related 
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modules,  the  module  interface  decisions  specifically 
identify  the  logical  flow  of  information  between  modules  and 
the  set  cf  constraints  to  be  observed  in  developing  them. 
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III.   PRELIMINARY  DESIGN  SPECIFICATIONS 

The  essential  requirement  in  preliminary  design  specifi- 
cation has  been  defining  the  purpose  for  which  the  AADC 
operating  system  was  being  designed  and  then  to  determine 
the  set  of  basic  functions  which  satisfy  this  purpose.  Since 
the  AADC  operating  system  was  to  be  designed  as  a  multi- 
purpose, modular  system  which  served  as  an  interface  between 
user  programs  and  hardware,  the  specifications  have  been 
determined  by  considering  the  requirements  of  an  operating 
system  in  a  multiprogramming,  multiprocessing  environment. 
The  decision  to  design  the  operating  system  in  this  environ- 
ment was  predicated  on  the  fact  that  monoprogrammed  and 
single  processor,  multiprogramraed  systems  could  be  obtained 
as  logical  subsets  of  the  design  by  restricting  the  number 
of  user  jobs  in  the  system  and  number  of  processors, 
respectively. 

The  first  task  in  developing  the  preliminary  design 
specifications  was  to  identify  the  services  to  be  provided 
to  the  user  and  the  essential  managerial  functions  to  be 
performed  by  the  operating  system  given  the  constraints  of 
multiprogramming  and  multiprocessing.  Firstly,  the  operating 
system  had  tc  perform  monitoring  operations  to  supervise  the 
activity  in  the  system  and  to  detect  and  rectify,  where 
possible,  software  or  hardware  errors.  Secondly,  a  means  for 
managing  resources,  such  as  processors,  files,  input/cutput 
devices,  space,  etc.,  had  to  be  provided  for  more  efficient 
resource  utilization.  Thirdly,  a  technique  for  passing 
information  tetween  separate  programs  (system  or  user  jobs) 
had  tc  be  designed;  and  finally,  the  operating  system  had  to 
provide  a  simple  method  for  controlling  input  and  output 
operations,  a  means  by  which  a  user  may  enter  his  program 
into  the  system  and  obtain  the  requested  output. 
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In  addition  to  these  functions  and  services,  several 
requirements  have  been  specified  in  the  AAEC  Development 
Project  which  have  a  direct  effect  on  the  design  and  imple- 
mentation of  the  operating  system.  In  particular,  the  opera" 
ting  system  will  he  executable  on  one  processor  at  any  point 
in  time;  i.e.,  a  dedicated  system  processor.  Secondly,  the 
user  has  been  given  the  ability  to  cause  the  creation  of 
separate  processes1  that  may  execute  independently  from  the 
parent  process.  Another  requirement  has  been  the 
implementation  of  paging  techniques;  however,  the  page  fault 
recognition  and  page  replacement  algorithms  have  been 
scheduled  for  implementation  in  hardware  [Refs.  2  and  11]. 

Finally,  a  standardized,  simple  communications  technique 
has  been  specified  to  facilitate  interprocess  communication 
and  process  to  hardware  communication.  In  current  operating 
systems,  the  communications  facilities  have  varied  according 
to  the  type  of  communication;  i.e.,  user  processes  pass 
information  to  system  processes  via  a  program  interrupt 
facility,  system  processes  communicate  with  other  system 
processes  via  shared  tables  and  lock/unlock  mechanisms,  etc. 
Wecker  [Eef.  12]  has  described  the  problems  resulting  from 
these  implementations  as: 

By  building  systems  with  all  these  varied  communica- 
tion facilities,  we  tend  to  overcomplicate  and  overburden 
the  operating  system  and  the  user  programs.  This  non- 
uniformity  of  communication  techniques  within  a  system 
leaas  to  problems  of  synchronization  and  scheduling  and  to 
systems  where  the  overall  design  and  structure  tecome 
^obscure  and  maintenance  becomes  difficult... 

It  would,  therefore,  be  very  desirable  to  build  an 
operating  system  where  data  exchange  techniques  are 
simplified  ana  which  will  execute  efficiently  on  our 
spectrum  of  multiple  processor  hardware  configurations. 
These  goals  can  be  achieved  by  having  all  processes  in  the 
system  communicate  via  explicit  data  exchanges. 


1  A  process  is  a  task  or  algorithm  which  competes  for 
resources  and  can  be  characterized  by  its  state  and 
environment. 
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The  communications  technique  utilized  in  this  operating 
system  has  been  designed  to  pass  information  through  the  use 
of  message  semaphores  and  buffers  £Refs.  3,  8,  12,  and  13]. 
The  interprocess  communication  requirement  and  the  function- 
al requirements  identified  in  the  preceeding  paragraphs  are 
summarized  in  Table  I. 


TABLE  I   BASIC  FUNCTIONAL  REQUIREMENTS  FOR  THE 
AADC  OPERATING  SYSTEM 


FUNCTION 


Monitoring 


DEFINITION 


Supervise  the  activity  in  the 
system:  Detect  and  rectify  hardware 
and  software  errors. 


Resource  Allocation 


Supervise  the  allocation  of 
resources  to  competing  system  and 
user  processes. 


Input/Output  Control 


Method  for  users  to  enter  programs 
into  the  system  and  obtain  output. 


Communication 
fieguirements 


Technigue  for  passing  information 
from  process  to  process,  process  to 
hardware,  and  in  operator-system 
communications. 


Multiprogramming 
and  Multiprocessing 


Scheduling  technique  for  optimizing 
system  utilization  while  providing 
processor  execution  time  equitably. 


Dedicated  Processor 


Operating  system  executable  on  only 
one  processor  at  any  point  in  time. 


User  Created  Processes 


Method  by  which  a  user  process  can 
create  independent/dependent  user 
processes. 


Paging 


(To  be  implemented  in  hardware) 


Having  identified  the  basic  functional  requirements  of 
the  operating  system,  the  preliminary  design  specifications 
were  determined  in  the  manner  described   in   the   preceeding 
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chapter.  To  facilitate  design  and  hierarchical  ordering, 
the  modules  were  divided  into  two  distinct  classes 
(processes  and  primitives) .  Process  modules  were  designed 
to  perform  specific  functions  while  competing  for  system 
resources;  whereas  the  primitive  modules  were  designed  to 
perforin  the  common  services  reguired  by  user  and  system 
processes.  In  particular,  primitives  were  used  to  provide 
the  mechanism  for  resource  allocation  and  process 
communication,  and  to  protect  critical  sections. 

The  operating  system  processes  have  been  assigned  to 
level  2,  whereas  the  primitives  which  provide  services  to 
the  processes  were  assigned  to  level  1 .  Within  each  of  these 
levels,  the  modules  have  been  ordered  hierarchically  depen- 
ding on  the  services  they  provided  to  other  modules  en  the 
same  level.  For  example,  a  system  monitor  module  reguired 
the  services  of  an  input/output  control  module  to  receive 
instructions  from  or  pass  information  to  the  computer  system 
operator.  In  this  case,  the  monitor  would  be  assigned  to 
level  2.2  and  the  I/O  controller  to  level  2,1.  Hence,  any 
module  on  level  2  may  utilize  the  services  provided  by 
modules  on  level  1;  however  within  the  levels,  services  may 
be  obtained  from  modules  on  an  adjacent,,  lower  level.  The 
remaining  sections  of  this  chapter  are  concerned  with -the 
preliminary  design  specifications  of  the  operating  system 
modules.  The  Fundamental  Algorithm  Technique  used  by  Knuth 
[Kef.  14]  was  adopted  to  define  the  program  logic  of  the 
processes  and  primitives  described  in  the  following 
sections . 

A.   OFERAIING  SYSTEM  PROCESSES  -  LEVEL  2 

The  first  stage  in  the  preliminary  design  specifications 
for  the  operating  system  processes  was  to  determine  which  of 
the  basic  functions  could  best  be  performed  by  a  process  and 
then  to  determine  wnich  processes  provided  services  to  other 
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FIGURE  1.   THE  HIERARCHY  OF  OPERATING  SYSTEM  PROCESSES 
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processes.  In  particular,  the  monitoring  function  and  the 
input/output  control  functions  were  selected  to  be  performed 
by  processes.  In  designing  the  modules  to  satisfy  these 
reguirements  and  to  provide  the  capability  for 
multiprogramning-multiprocessing,  nine  (9)  processes  were 
specified.  The  need  for  additional  processes  to  serve  as 
interfaces  between  selected  hardware  devices  (i.e.,  line 
printers,  card  readers,  consoles,  disk  drives,  etc.)  and 
system  processes  was  also  considered.  Figure  1  is  the 
hierarchical  ordering  of  the  operating  system  processes. 

1-   Error. Handler^-  Level^g.^ 

In  any  multi-purpose  operating  system,  there  must  be 
an  internal  method  for  the  handling  of  user,  systems  and 
hardware  generated  error  conditions.  Corrective  action  may 
be  accomplished  by  canceling  the  ill-behaved  user  process, 
terminating  and  then  replacing  a  system  process,  or 
notifying  the  system  operator  cf  the  problem  and  waiting  for 
instructions.  In  any  case,  the  action  to  be  performed  was 
determined  by  the  designers  of  the  computer  system 
(including  both  hardware  and  software)  with  particular 
emphasis  en  the  precise  hardware  configuration. 

Since  the  physical  machine  was  unspecified,  a  nodule 
to  perform  these  functions  was  designed  to  simulate  the 
monitoring  function;  however  the  error  correction  routine 
has  been  left  undefined.  Once  the  specific  actions  are 
identified,  the  appropriate  code  may  be  inserted  (provided 
the  interface  reguirements  are  not  violated) .  The  followiug 
algorithm  describes  the  basic  logic  of  the  Error  Handler: 


1.1  [Wait  for  message]  Reguest  (error 
message)  . 

1.2  [Interpret  message]  Decode  the  error 
message  and  determine  the  action  to 
be  taken. 

1.3  [Recoverable]  If  correctable  Then 
take  predetermined  action  Otherwise 
Go  to  step  1.5. 
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1.4  [Inform  operator]  Release  (operator 
message)  and  Go  to  step  1.1.  (Notify 
the  operator  of  the  error  and  action 
taken.) 

1.5  [Nonrecoverable ]  Release  (operator 
message) .  (Notify  the  operator  of 
the  error  and  reguest  instructions.) 

1.6  [Wait  for  answer]  Request (answer) . 

1.7  [Answer  received]  Perform  the  action 
specified  and  Go  to  step  1.1 

ALGORITHM  1   ERROR  HANDLER 


The  "wait  for  an  error  condition",  "wait  for 
answer",  and  "notify  the  operator"  were  performed  in  this 
inplementation  through  the  use  of  the  message  passing 
primitives  (Reguest  and  Release)  to  be  defined  later.  Since 
information  was  being  exchanged  with  the  operator,  the  Error 
Handler  needed  the  use  of  an  I/O  device  (s) .  To  hide  the 
actual  manner  in  which  this  was  performed  and  to  simplify 
the  I/O  controllers,  this  service  was  assigned  to  an 
independent  module  —  the  Operator  System  Communicator. 

2 .   0peratpr_5ystem  Communicator  -  Level  2.5 

In  addition  to  providing  services  to  the  Error 
Handler,  the  Operator  System  Communicator  was  designed  to 
assist  the  computer  operator  in  controlling  the  system.  The 
operator  needed  the  ability  to  'start  up1  a  specific  job;  to 
add,  delete  or  modify  the  system  configuration  (start  up  a 
new  disk  drive,  delete  a  card  reader,  or  modify  a  disk 
pack) ;  or  to  obtain  information  concerning  the  status  of 
gueues,  availibility  of  core,  etc.  The  Operator  System 
Communicator  was  implemented  to  provide  a  centralized 
control  point  and  a  uniform  way  of  obtaining  system 
information  or  giving  orders  to  the  system.  As  in  the  case 
of  the  Error  Handler,  the  full  design  of  this  module 
depended  upon  knowledge  of  the  possible  configuration  and 
the  repertoire  of  "operator-system"  instructions.  All 
messages  are  passed  via  the  Reguest  and  Release   primitives. 
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2.1  [Wait  for  message]  Bequest  (operator 
I/O)  . 

2.2  [Interpret  message]  Determine  who 
sent  the  message  and  the  acticn  to 
be  taken. 

2.3  [From  operator]  Perform  action 
specified,  and  Go  to  step  2.5. 

2.4  [From  system]  Perform  the  action 
specified.  (i.e.,  pass  the  message 
to  the  operator,  etc.) . 

2.5  [Answer  reguested]  If  (answer 
reguested)  Then  Release  (answer)  .  Go 
to  step  2, 1 . 

ALGORITHM  2   OPERATOR  SYSTEM  COMMUNICATOR 


3.   Input/Output  Controller  -  Level_2._4 

Since  there  is  generally  a  great  disparity  between 
the  rate  of  information  transfer  among  input  devices  and 
main  storage  access  time,  the  concept  of  spooling  has  been 
adopted  to  assist  the  system  in  satisfying  the 
multiprogramming  functional  requirement.  In  particular, 
spooling  operations  utilize  the  services  of  file  management 
and  employ  the  concept  of  buffering  (a  buffer  is  a  storage 
area  used  to  give  a  better  match  between  processor  speeds 
and  I/O  device  speeds)  in  accomplishing  its  function. 
Watson  [Ref.  15]  describes  the  I/O  problem  as  follows: 

The  I/O  system  must  cope  with  a  wide  variety  of 
devices  and  therefore  is  quite  complicated  at  detailed 
levels  of  design._  This  complication  arises  because  cf  the 
large  number  or  special  situations  which  can  arise  in 
handing  communication  with  each  type  of  device.  To  create 
a  design  which  is  as  conceptually  simple  as  possible,  the 
designer  should  probably  isolate  as  many  device-dependent 
characteristics  as  possible  in  separate  routines  (often 
called  device  drivers)  and  then  interface  these  routines 
with  mere  general  routines  wnich  are  device-independent. 

One  can  recognize  four  major  functions  in  handling  I/O 
devices: 

1  Euffering  of  information  transmitted  between  I/O 
devices,  auxiliary  storage  and  memory 

2  Proper  handling  of  interrupts  or  other  device  to 
processor  signals  and  their  interface  to  the  rest  of 
the  system 

3  Reserving  and  allocating  I/O  resources 
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4  Protection  of  the  resources  dedicated  to  one  user  or 
process  from  interference  by  another. 


The  Input  Controller  was  designed  to  "spool"  user 
jobs  into  a  file  on  some  auxiliary  device  and  to  enter  the 
job  control  language  (JCL)  and  various  administrative  data 
into  a  jcb  gueue.  The  Initiator  can  then  retrieve  thie  data 
and  create  the  user  process.  To  avoid  the  possibility  of 
"deadlocks"  for  file  space  (i.e.,  the  Input  Controller  gets 
blocked  indefinitely  for  space  to  spool  the  incoming  data) , 
the  responsibility  for  reguesting  file  space  was  assigned  to 
the  input  device  interface  processes.  Hence,  the  Input 
Controller,  which  is  device  independent,  receives  JCL 
information,  file  information,  etc.  from  the  various 
interface  processes,  stores  this  information  in  the  job 
gueue  and  sends  a  message  to  the  Initiator. 


3.1  [Wait  for  a  message]  Reguest 
(output)  . 

3.2  [Interpret  message]  Determine  the 
action  required. 

3.3  [JCL]  If  (JCL  or  file  information) 
Then  store  the  data  and  Go  to  step 
3.1. 

3.4  [Input  for  Operator  System 
Communicator]  If  (Operator  input) 
Then  Release (Operator  I/O)  and  Go  to 
step  3.  1. 

3.5  [EOF]  If  [End  Of  File  (EOF)  ]  Then 
enter  data  in  the  job  gueue, 
Release (New  Job)  (to  the  initiator) , 


3.6 


and  Go  to  step 

[From  Operator  System  Communicator] 
If  (Configuration  Modification)  Then 
take  appropriate  action  and  Go  to 
step  3.T. 


ALGORITHM  3   INPUT  CONTROLLER 

In  item  3.6  of  the  above  algorithm,  the  message 
received  by  the  Input  Controller  was  from  the  Operator 
System  Communicator.  The  decision  was  made  to  have  the  Input 
Controller  create  the   interface   processes   for   the   input 
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devices  since  it  had  to  maintain  separate  files  tc  store 
incoming  data  from  each  device.  Thus,  if  the  operator 
entered  the  command  to  start  up  another  card  reader,  the 
Communicator  would  instruct  the  Input  Controller  to  do  it, 
wait  for  an  answer  that  it  had  been  done,  and  then  inform 
the  operator. 

The  Output  Controller  was  designed  to  provide  a 
uniform,  generalized  technique  for  handling  the  various 
reguested  output  operations.  In  keeping  the  design  simple 
and  device  independent,  the  Controller  was  implemented  to 
utilize  the  services  of  the -device  interface  processes  and 
the  File  Manager.  In  particular,  the  Output  Controller, 
upon  receiving  a  reguest  to  output  a  message,  assigned  a 
device  and  then  passed  the  information  to  the  device 
interface  process.  In  the  case  of  printing  files,  the  data 
was  passed  from  the  File  Manager  via  the  Controller  tc  the 
preassigned  (maybe  user  or  system  specified)  interface 
process.  In  the  event  a  device  was  not  available,  the 
Controller  gueued  the  output  reguest. 


4.1  [Wait  for  message]  Reguest  (output 
message)  . 

4.2  [Interpret  message]  Determine  the 
action  to  be  taken. 

4.3  [Operator  System  Communicator 
message]  Take  specified  action  and 
Go  to  step  4.1.  (i.e.,  Release 
message  to  the  operator,  add  a  new 
device,  etc.) . 

4.4  [File  Manager  message]  Release  (full 
buffer)  and  Go  to  step  4.1.  (pass 
the  information  to  be  output  tox  the 
appropriate  device  interface 
process) . 

4.5  [Terminator  message]  If  (Device 
available)  Then  get  data  from  print 
queue,  take  action  to  output  the 
job,  and  Go  to  step  4.1;  Otherwise 
queue  the  print  job  and  Go  to  step 
4.  1. 

ALGORITHM  4   OUTPUT  CONTROLLER 
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*•  •   Initiator  -  Level  2.4 

One  of  the  principle  functions  of  the  operating 
system  was  to  prepare  a  user  program  for  execution.  Frcm  the 
JCL  and  file  information  stored  in  the  job  queue,  the  system 
determined  and  then  allocated  the  initial  resources  reguired 
by  the  job.  In  so  doing,  the  user  job  was  transformed  into  a 
process  which  was  assigned  an  internal  identification,  given 
resources  or  access  to  them,  and  entered  on  the  "ready 
active"  gueue  (a  list  of  processes  waiting  for  a  processor) . 
Furthermore,  a  system  table  [Process  Control  Block  (PCB)  ] 
containing  management  information  about  the  job  was 
established  for  use  by  the  operating  system  as  the  process 
proceeded  through  execution.  The  Initiator  was  designed  and 
inplemented  to  prepare  the  user  program  for  execution. 

5.1  [Get   internal  name]  Request  (Inarae) 

(Wait   for   space   for   a    PCB   if 
necessary)  . 

5.2  TGet  a  job  from  the  job  gueue] 
Request  (New job)  . 

5.3  [Interpret  JCL]  Determine  which 
resources  are  required  by  the 
process  and  verify  that  this  process 
may  have  access. 

5.4  [Obtain  reguired  resources] 

For         (eacn      reguired      resource)      Do 
Request  (resource) . 

5.5  [Create   Process    Control    Block] 
Call    Create   PCB. 

5.6  [Activate   the    process]   Call    Activate 

(new  process)  . 

5.7  [Free  job  gueue  space]  Release(Job 
queue)  . 

5.8  [Finished]  Go  to  step  5.1. 
ALGORITHM  5   INITIATOR 


5-   Terminator  -  level  2.4 

When  a  process  completes  execution  (either  normally 
or  abnormally) ,  the  various  resources  created  by  the  process 
or   assigned   to    it    were    destroyed    or    deallocated, 
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respectively.  Additionally,  any  output  requirements  were 
satisfied,  including  operator  notification  if  necessary. 
Since  in  the  design  of  the  operating  system,  both  system  and 
user  processes  were  given  the  ability  to  create  subordinate 
processes,  the  termination  of  the  parent  process  necessita- 
ted the  termination  of  its  progeny  (dependent  processes) . 
The  Terminator  was  designed  to  perform  these  functions  when 
notified  by  the  system  or  user  to  terminate  a  process. 

6.1    [Wait    for    termination    message] 
Request  (terminat:  ~ 


:ion  message)  . 

6.2    [Verify   message]   If  (Invalid)  Then 
Releast 
step  6. 


Release  (Error   message)   and   Go,  to 


6.3  [Compile  list  of  processes]  Insert 
process  to  be  terminated  and  all 
dependent  processes  on  the  list  and 
i  <-  n  (number  of  items  in  the 
list) . 

6.4  [Select  process  for  termination] 
Term_Process  <-  list  (i) . 

6.5  [Print  output  file]  Release  (Output) . 

6.6  [Free  all  resources]  Deallocate 
resources. 

6.7  [Free  Internal  Name]  Release(job 
name) . 

6.8  [Finished]  i  <-  i-1;  If  i  =  0  Then 
Go  to  step  6.1  Otherwise  Go  to  step 
6. U. 

ALGORITHM  6   TERMINATOR 

6 •   file  Management  -  Levels  2.3.  and  2.2 

The  design  and  subsequent  implementation  of  file 
management  techniques  simplified  the  development  cf  a 
multiprogramming  operating  system.  Serving  as  an  interface 
between  processes  and  the  auxiliary  storage  devices  (disks, 
drums,  tape  drives) ,  the  File  Manager  was  designed  to 
perfoira  such  functions  as  controlling  access  to  files, 
creating  and  destroying  files,  opening  and  closing  files, 
and  providing  backup  and  restoration  services,  if  possible. 
Additionally,   characteristics   of   the   file,   i.e.,  record 
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size,  data  storage  methods,  etc.,  and  of  the  device  were 
hidden  from  the  Manager  to  eliminate  file  type  and  device 
dependencies. 

In  multiprogramming  systems,  simultaneous  reguests 
from  separate  processes  for  access  to  a  shared  file  required 
the  file  Manager  to  determine  if  multiple  access  can  be 
permitted.  Since  the  reguests  may  be  for  read  access,  write 
access,  cr  both,  the  File  Manager  was  implemented  to  satisfy 
multiple  read  access  requests  but  restricted  write  access  to 
only  one  process  at  a  time.  As  in  the  case  of  the  Input  and 
Output  controllers,  the  File  Manager  was  assigned  the 
additional  function  of  creating,  destroying  and  supervising 
the  device  interface  processes  which  perform  the  reading  and 
writing  of  data. 

7.1  [Rait  for  a  message]  Request  (File 
Operation)  . 

7.2  [Interpret  message]  Determine  action 
to  be  taken. 

7.3  [Configuration    modification]    If 

(configuration  modification)  Then 
perform  required  action  and  Go  to 
step  7.1.  (From  Operator  System 
Communicator  -  add,  delete  or  modify 
the  status  of  a  storage  device) , 

7.4  [New  file  added]  If  (new  file)  Then 
update  master  list  of  known  files 
and  Go  to  step  7.1.  (From  the  File 
Space  Manager  -  a  new  file  has  been 
added)  . 


7.5  [Directory  information]  If 
(directory  information)  Then  update 
directory  and  release  available 
space  to  the  File  Space  Manager  as 
necessary  and  Go  to  step  7.1.  (From 
an  Interface  Process  when  the 
storage  device  is  added  to  the 
system)  . 

7.6  [Operation  on  a  file]  If  (file 
operation)  Then  [If  (access  allowed) 
Then  perform  operation  Otherwise 
Release  (Error  message)  ]  Go  to  step 
7.1.  (A  process  has  requested  a  file 
read,  write,  open,  close,  etc.  The 
access  check  can  include  deadlock 
checks  as  necessary) . 

ALGORITHM  7   FILE  MANAGER 
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Hhen  a  process  requests  access  to  a  file,  the  File 
Manager  tested  for  potential  deadlock  situations  (a  deadlock 
occurs  when  process  1  had  been  given  write  access  to  file  A, 
process  2  had  been  given  write  access  to  file  B,  and  then 
processes  1  and  2  request  access  to  files  B  and  A,  respec- 
tively, and  consequently,  become  blocked  indefinitely) . 
Many  solutions  have  been  presented  to  solve  the  deadlock 
problem,  some  of  which  include:  requesting  and  then 
assigning  all  resources  at  the  time  of  process  creation,  the 
concept  of  "sacrificing",  and  more  complex  schemes  [Refs.  16 
and  17].  The  concept  of  "sacrificing"  was  implemented  in 
this  design.  In  particular,  once  a  process  reguested  a 
write  access  which  was  not  immediately  serviceable  or  had 
write  access  and  then  reguested  read  access  which  was  not 
serviceable,  all  file  resources  owned  by  this  process  became 
preemptafcle.  In  this  scheme,  the  user  must  be  careful  to 
reguest  file  access  at  points  where  preemption  does  not 
prohibit  recovery. 

In  creating  a  file,  available  storage  space  was 
found,  tagged  as  being  non-available  and  reserved  for  access 
by  the  process  requesting  a  new  file.  To  prevent  the  File 
Manager  from  being  blocked  indefinitely  while  attempting  to 
service  a  reguest  for  space  allocation,  the  responsibility 
for  this  function  has  been  assigned  to  a  separate  process. 
File  Space  Manager.  Thus,  processes  desiring  a  new  file  made 
their   reguest  to  this  process  rather  than  the  File  Manager. 

The  File  Space  Manager  was  designed  to  manage  the 
space  available  in  auxiliary  storage  and  to  create  new  files 
upon  request  by  a  process.  The  allocation-deallocation  and 
accounting  functions  were  implemented  as  a  coordinated 
operation  with  the  File  Manager.  In  particular,  the  File 
Manager  was  assigned  the  responsibilty  to  determine  the 
change  in  available  space  as  files  were  destroyed  or  devices 
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were  added,  removed  or  modified  (change  in  disk  pack,  tape, 
etc.)  and  then,  to  inform  the  Space  Manager  of  the  change 
and  its  effect  on  available  space. 


8.1  [Wait  for  a  message]  Reguest  (space 
operation)  . 

8.2  (Interpret  message]  Determine  action 
to  be  taken. 

8.3  [System  configuration  change] 

If  (Device  deleted)  Then  Go  to  step 
8.1  Otherwise  If  (Outstanding  space 
reguests)  Then  Go  to  step  8.7. 

8.4  [Space  freed]  If  (space  freed  and 
outstanding  space  reguests)  Then  Go 
to  step  8.7:  Otherwise  Go  to  step 
8.1  (from  Pile  Manager  -  a  file  has 
been  destroyed) . 

8.5  [Permanent  file]  If  (permanent  file) 
Then  [If  {space  available)  Then 
update  available  space  and  Go  to 
step  8.7  Otherwise  Release  (Error 
message)  and  Go  to  step  8.1. 

8.6  [Temporary  file]  If  (temporary  file 
Then  [ While  (  space  not  available) 
Reguest  (space  from  File  manager) ]; 
Upaate  available  temporary  space. 

8.7  [Create  a  file]  Get  an  RCB;  update 
space  available;  update  rile 
directory  for  the  selected  storage 
device:  and  Release  (answer)  to  the 
reguesting  process;  Go  to  step  8.1. 

ALGORITHM  8   FILE  SPACE  MANAGER 


Dpon  fielding  a  reguest  from  a  process  to  create  a 
temporary  file  which  required  more  space  then  what  was 
available,  the  Space  Manager  was  blocked  until  a  change  in 
the  system  occurred  or  a  previously  created  file  was 
destroyed.  When  space  was  not  available  for  a  pemanent 
file,  an  error  condition  was  set  and  the  Space  Manager 
proceeded  to  service  other  reguests. 

'•   Interrupt  _Handler_-  Leyel_2. 1- 

The  interrupt  concept,  a  second  and  third  generation 
advance,  was  devised  to  facilitate  multiprogramming 
operations.  Sayers  [Ref.  18]   defined   an   interrupt   as   "a 
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break  in  the  normal  flow  of  program  execution,..  usually 
caused  by  a  hardware-generated  signal,  such  as  an  I/O  event, 
a  program  error,  a  machine  error,  or  an  operator-initiated 
signal."  The  interrupt  was  used  primarily  to  compensate  for 
the  speed  differential  between  I/O  operations  and  central 
processing  by  permitting  the  processor  to  continue  execution 
of  a  process  while  servicing  the  I/O  reguests  of  other 
processes.  lor  example,  a  process  was  blocked  upon 
reguesting  I/O,  the  I/O  operation  was  started  and  the 
processor  was  allocated  to  another  process.  Once  the  I/O 
operation  was  completed,  the  system  was  notified  via  an 
interrupt  signal.  At  this  point,  the  process  which  was 
blocked  on  this  I/O  operation  was  permitted  to  preempt  the 
current  process  and  resume  execution,  or  was  placed  in  a 
"ready-active"  queue  to  wait  for  a  processor. 

The  Interrupt  Handler,  as  implemented  in  this 
operating  system,  was  designed  to  service  various  interrupts 
by  determining  which  interrupt  was  set  and  performing  any 
predefined  action.  The  Interrupt  Handler,  therefore,  served 
as  an  interface  between  the  hardware  devices  and  the 
processes  using  these  devices.  When  an  interrupt  occured, 
the  Handler  was  invoked  directly  (by  hardware)  to  service 
the  interrupt.  In  particular,  the  state  of  the  current 
process  was  saved,  the  Handler  released  a  message  tc  the 
process  waiting  for  the  interrupt  and  then,  control  returned 
to  the  interrupted  process. 


9.1  [Wait   for   interrupt]    Wait   to  be 
invoked  by  hardware. 

9.2  [Save    state   of   current   process] 

Save_process  <-  Current_process; 
Call  Save_state  (Current_process)  . 

9.3  [Reset  Current_process  ] 
Current_Process  <-  Iuterrupt_Hndlr . 

9.4  [Determine  action]  Identify 
interrupt  and  reguired  action. 
(i.e.,  waich  process  is  concerned 
with  this  interrupt  and  the  proper 
message  semaphore} . 


33 


9.5  [Send  message]  Release  (message  to 
process)  . 

9.6  r Restore  the  preempted  process]  Call 
Restore_state  (Save_process)  and  Go 
to  step  9.1. 

ALGORITHM  9   INTERRUPT  HANDLER 


B.   0PERA1ING  SYSTEM  PRIMITIVES  -  LEVEL  1 

In  a  multiprogramming,  multiprocessing  environment, 
mechanisms  must  be  provided  for  the  synchronization  of 
processes  during  information  transfer;  for  allocation  and 
deallocation  of  resources;  for  process  creation,  control  and 
termination;  and  for  protection  of  critical  sections  of 
cade,  of  data  structures  and  of  resources.  The  primitives 
were  designed  to  perform  these  functions. 

In  particular,  the  technique  for  interprocess 
communication  was  defined  through  the  use  of  the  Request, 
Release  and  Allocator  primitives;  processor  allocation  was 
achieved  by  the  Scheduler  primitive.  The  primitives 
Savestate,  Restorestate,  Interrupt  Enabler  and  Interrupt 
Disabier  assist  in  process  control  and  protection.  Finally, 
the  various  system  data  structures  (i.e..  Resource  Control 
Block  -  ECB,  Process  Control  Block  -  PCB,  etc.)  were 
"hidden"  from  the  rest  of  the  system  by  providing  the 
primitives  RCB  Handler  and  PCB  Structures. 

A  hierarchical  organization  of  the  primitives  was 
defined  in  that  various  primitives  require  the  services  of 
other  ones.  For  example,  all  primitives  invoke  the 
Interrupt  Disabier  at  the  start  of  execution  and  the 
Interrupt  Enabler  upon  completing  execution.  This  uas 
necessary  to  preclude  preemption  while  executing  critical 
sections  of  code.  Figure  2  represents  the  primitive 
hierarchy . 
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at   any   point  in   time.   Bequest  and  Release  messages  that 

cannot  be  immediately  matched   are   queued   on  the   message 

semaphore   and  ordered   by   the   priority   of  the  invoking 
process. 

TABLE  II.   MESSAGE  BUFFEB 
FIELD  PURPOSE 


RELEASOR  Internal  name  of  the  process  releasing 

a  message. 

ANSWER-REQUIRED      Indicates  if  an  answer  to  the  release 

is  required. 

MESSAGE-SIMAEHORE     Internal  identification  of  the  message 

class  identifier  to  be  used  in  the 
answer. 

BUFFER  LOCATION       Identifies  the  input/output  buffer. 

DATA  FIELDS  Used  to  pass  action  identifiers  (inter- 

face variables) ;  device,  process, 
resource  external  names;  and  adminis- 
trative data. 


Request  and  Release  may  be  considered  as  a  software 
interrupt  scheme  utilized  by  processes.  A  process  invoking 
Reguest  "enables  the  interrupt"  associated  with  the 
specified  message  semaphore  and  a  process  invoking  Release 
"sets  the  interrupt".  After  a  Request  has  been  matched  with 
a  Release,  the  "message  semaphore  interrupt"  is  disabled 
until  Reguest  is  invoked  again  with  that  semaphore. 

The  ability  to  Release/Request  a  message  to/from  a 
specific  process  was  incorporated  to  provide  a  usable  system 
with  a  reasonable  number  of  message  semaphores.  For 
example,  to  perform  a  file  operation  using  the  services  of 
the  File  Manager,  process  A  only  needs  the  message  semaphore 
($FILEOF)  and  the  message  format  utilized  by  the  File 
Manager;  no  ether  information  is  needed.  Process  A  releases 
a  JPILEOF  message  (restricted  to  the  File  Manager  for 
reguests)  and  specifies  the  operation  desired.  If  an  answer 
is  reguired  for  synchronization,  the  message  semapnore 
process  A  will  use  in  the  Reguest  is  also  specified.   When  a 
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Bequest  from  the  File  Manager  is  matched  with  the  Release 
from  process  A,  the  message  data  and  A's  internal  name  are 
provided  to  the  File  Manager.  Upon  completion  of  the 
desired  operation,  a  message  will  be  Released  to  process  A 
specifically,  on  the  desired  semaphore.  In  this  manner, 
several  processes  may  be  blocked  with  a  Request  on  a  single 
message  semaphore,  such  as  $WAIT;  and  another  process  may 
Release  messages  to  a  specific  process,  not  necessarily  the 
process  at  the  head  of  the  queue. 


10.1  [Disable  Interrupts] 
Call  Interrupt_Disabl 

10.2  [Verify  semaphore] 


er. 


10.3 


10.4 


all  RCB  Data  ("validate") . 
If  (Invalid)  Then  set  error  code  and 
Go  to  step  10.6. 

[Verify  authorization  to  access} 
Call  PCB_Data ("access")  ; 
If  (Unauthorized)  Then  Set  error 
code  and  Go  to  step  10.6. 


[Determine  necessary  action] 
Call  Allocator  ("data", Match)  . 

10.5   [If  a  match  is  found  then  activate 
the  process]   If  (Match)  Tnen 
Call  PC3  Da£a("get  priority",  PRI)  ; 
Call  £C3  Data ("put  status", READYA) ; 


^U.  -J_  J-    'v1*'  J_/__l^ti  1-U.i     ^Ut    «3  I.U.  <-  U  *3    g     .  .1  Xj  n  u   x   ex  I       f 

Call  PCB_Data ("get  type  -  System  or 

User" ,Type_Proc) ; 

Call  RCB  Put_Queue (PIName, 

Ready  A_Que,  Type_Process, 

Priority)  • 

Call  Scheduler. 

10.6   [Enable  Interrupts] 

Call  Interrupt_Enabler . 

AIGORITHM  10   RELEASE 


11.1  [Disable   Interrupts] 
Call  Interrupt_Disabler . 

11.2  [Verify  semaphore] 

Call  RCB  Data  ("validate") ;  If 
(Invalid)"  Then  set  error  code  and  Go 
to  step  11.6. 

11.3  [Verify  authorization  to  access] 
Call  PCB  Data ("access")  ; 

If  (Unauthorized)  Then  set  error 
code  and  Go  to  step  11.6. 

11.4  [Determine  necessary  action] 
Call  Allocator ("data", Match) . 
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11.5   [Test  for  a  match]  If  (Match)  Then 
Go  to  step  11.7. 


11.6   [Block  the  process] 

Call  £CB_Data ("status  =  BLOCKED"); 
Call  Savestate ("invoking  process") ; 


Call  Scheduler. 

err 
pt^EnaDXer. 


11.7   [Enable   Interrupts] 
Call  Interrupt  EnabI 


ALGORITHM  11   REQUEST 

The  Allocator  was  designed  to  perform  the  functions 
common  to  Eeguest  and  Release:  matching  messages  or  gueueing 
messages  if  no  match  is  found.  The  entry  point  RCB_Match  to 
RCB  Structures  was  inplemented  to  simplify  the  Allocator  and 
hide  the  data  structure. 


12.1  [Check  for  a  match  1 
Call  RCfl_Match  ("data")  . 

12.2  [Match  and  a  Reguest]  If  (Match  & 
Reguest)  Then  Do  Transfer  message  to 
Reguestor's  buffer;  and  Return. 

12.3  [Hatch  and  a  Release]  If  (Match  & 
Release)  Then  Do;  Transfer  message 
to  the  Blocked  Process'  Buffer; 
Enter  Releasor's  internal  name  in 
the  buffer;  and  Return. 

12.4  [No_Match     and    a    Release]   If 

(No_Match  &  Release)  then  Allocate  a 
temporary  message  buffer;  and  Enter 
the  message  data  into  that  buffer. 

12.5  [No  match-gueue  message  by  Priority] 
Call  PCB  Data ("get  priority"); 

Call  RCB"  PutQue  ("message,  priority, 
and  semaphore")  ;  Return. 

ALGOEITHM  12   ALLOCATOR 


2«   Primitive  -_  Scheduler^  -..Level  _J  .3 

The  processor  which  is  freed  when  a  process  is 
blocked  must  be  reassigned  to  another • process  to  efficiently 
use  the  processor(s)  in  a  multiprogramming  environment. 
Many  scheduling  algorithms  have  been  proposed;  such  faptors 
as  the  priority  ajid  the  past  I/O  behavior  of  processes  can 
be  used  to  determine  which  process  should  be   scheduled,   or 


38 


if  a  currently  running  process  should  be  preempted.  Other 
techniques  include  first-in-first-out  (FIFO)  scheduling  and 
round-robin  scheduling,  in  which  each  process  is  allocated  a 
time-slice  on  a  recurring  basis.  The  scheduling  algorithm 
is  usually  tailored  to  achieve  the  goal  of  the  system,  such 
as  maximizing  throughput  in  a  batch  system,  or  immediately 
starting  critical  processes  in  a  command/control  system. 
Since  the  Scheduler  is  run  on  the  designated  operating 
system  processor,  that  processor  must  be  started  last  to 
preclude  preempting  the  Scheduler, 


13.1  [Initialize  variables] 
Processor  <—  User_Processor  ( 1)  ; 
Que  <—  User;  i  <-  2; 

Cycle_f inished  <—  False. 

13.2  [Check  processor]  If  (Processor  is 
not  allocated)  Then  Go  to  step  13.6. 

13.3  [Check  the  gueue]  Call  RCB  Find  ("get 

friority  of  the  top  element  in  Que) ; 
f   (Que   is-  empty)  Then  Go  to  step 
13.7. 

13.4  [Check     for     preemption]     If 

(preemption  is  desirable)  Then  Call 
Savestate (Current  Process, Processor) 
Otherwise  Go  to  sTiep  13.7. 

13.5  [Change  status  and  gueue  current 
process]  Call  PCB_Data ("put  status 
of  current  process  to  REDYA")  ;  Call 
RCB  Put  Que ("insert  current  process 
on  Q"ue"7- 

13.6  [Start-up  highest  priority  process] 
Call  RCB_Get_gue  ("process  at  the 
head  of  Que") ; 

Call   PCB  Data  ("put  status   of   New 
Process  to  RUNNING")  ; 
Call    Restorestate    (New   Process, 
Processor) . 


13.7   [Check  for  a  new  cycle] 
If 
13 


If  fCycle_Finished)  Then  Go  to   step 


13.8  [Select  next  processor] 

If   (more   user  processors)  Then  Do; 

Processor  <—  User_processor  (i)  ; 

i  <-  i  +  1;      End;      Else     Do; 

Processor  <-  System_Processor ; 

Que  <-  GS_Que; 

Cycle_Finished  <-  True;  End. 

13.9  [Loop]  Go  to  step  13.2. 
ALGORITHM  13   SCHEDULER- 
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3 .   Device  Directory  -  Level  1.3 

The  Device  Directory  primitive  was  designed  to 
interface  with  the  Operator  System  Communicator,  Input 
Controller,  Output  Controller  and  File  Manager  processes  to 
provide  information  concerning  system  configuration,  I/O 
devices  and  device  interface  processes.  During  system 
initialization  and,  when  required,  for  system 
reconfiguration,  this  primitive  would  be  invoked  tc  obtain 
the  data  used  in  creating  Resource  Control  Blocks  for  the 
devices  and  Process  Control  Blocks  for  the  interface 
processes. 

The  Directory  was  designed  to  store  two  classes  of 
data;  system  configuration  (menu)  and  resource  data.  System 
configuration  data  defines  several  possible  configurations 
which  may  be  selected  at  system  "start_up".  For  example, 
Menu  A  may  identify  Cardreaderl,  Lineprinter3,  Console2, 
etc.  and  Menu  B  identifies  Cardreader2,  Lineprinter3, 
Console"!,  etc.  The  resource  data  contained  in  the  Directory 
may  consist  of  the  interface  process's  external  name,  code 
location,  priority,  etc.  and  the  device's  access  gualifier 
(shared  or  private) ,  blocksize  (buffer  length) ,  interrupt 
identifier,  and  so  forth.  This  data  is  used  by  the  Operator 
System  Communicator  to  identify  the  devices  to  be  activated 
and,  hence,  the  message  to  be  sent  to  the  appropriate  data 
transfer  controller  (Input  Controller,  Output  Controller  or 
File  Manager) .  The  various  data  transfer  controllers  use 
this  information  to  create  the  interface  process  and  device 
RCE.  The  Device  Directory  primitive  provides  a  centralized 
and  standard  method  tor  accessing  the  required  information 
to  select,  activate,  and  modify  the  system  configuration; 
consequently,  a  modification  to  the  current  functions  cf  and 
services  provided  by  the  operating  system. 
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14.1   [Disable   the  interrupts] 
Cai: 


tll  Interrupt_Disabler. 


14.2 


[Identify  information  type]  If 
Henu_Data  Then  Look_Up  ("menu")  ; 
Otherwise  Look_Up ("device";  . 

11.3  [Entry  found]  If  Entry_Found  Then 
transfer  data  Otherwise  set  error 
code. 

14.4  [Enable  the  interrupts] 
Call  Interrupt_Enabler. 

ALGORITHM  14   DEVICE  DIRECTORY 


1 •   Data  Structures  -  Level  1.2 

Ihe  data  structures  primitives  were  designed 
primarily  to  eliminate  the  data  dependencies  and  alleviate 
the  critical  section  problem  that  has  plagued  many  second 
and  third  generation  computer  operating  systems.  For 
example,  concurrent  access  to  a  common  data  element  was 
prevented  by  designing  these  modules  as  ncn-interruptable 
primitives  and  defining  interface  variables  through  which 
the  processes  and  other  primitives  access  or  store  data  in 
the  structures. 

Every  process  and  resource  is  represented  in  the 
system  by  its  state,  identification  and  accounting/admin- 
istrative information.  A  corresponding  data  structure  was 
defined  to  contain  this  descriptor  data  for  use  in  basic 
process  and  resource  operations  (i.e.,  scheduling,  message 
handling,  etc.).  Tables  III  and  IV  represent  a  flexible  and 
general  purpose  model  structure  for  process  and  resource 
descriptors,  respectively.  For  example,  a  field  iray  be 
added  or  deleted  provided  the  interface  variable  associated 
with  the  field  is  also  appropriately  modified.  If  a  data 
type  were  changed,  code  to  convert  the  data  to  the  type 
expected  by  other  modules  need  only  be  added  to  the  data 
structure  module.  The  Resource  Control  Block  was  designed 
to   be   functional   for   the   types   of  resources  identified 
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TABLE  III.   PROCESS  CCNTKOL  BLOCK  DATA  STRUCTURE 


FIELD 

EXTERNAL  NAME 
PARENT 

CHILD 

LEET  SIBLING 
RIGHT  SIBLING 


PURPOSE 


User/operator  specified  process  naire. 

Internal  name  of  process  which  created 
this  process  or  which  is  the  parent  of 
a  sibling  which  created  this  process. 

Internal  name  of  a  dependent  process 
created  by  this  process  or  another  child 
of  this  process. 

Link  to  related  independent  processes. 
Value  is  a  process  internal  name. 

Link  to  related  independent  processes. 
Value  is  a  process  internal  name. 


PAGE  TABLE  POINTER   Address  of  the  process's  Page  Table. 


FILE-SHAEE-WEITE 
COUNTER 


PROCESS  TYPE 
RESOURCE  VECTOR 

FILE  ACCESS  STATUS 

MESSAGE  EUEFER 
STATUS 

PRIORITY 


QUANTUM 


CYCLE  TIME 


PROCESSOE 


STATE  VECTOR 


Counter  of  the  number  of  outstanding 
file  open  requests  for  write  access  to  a 
non-owned,  shared  file. 

Identifies  system  versus  user  process. 

Identifies  resources  accessible  or 
acquired. 

Identifies  the  process  as  a  reader  or 
writer,  or  if  it  is  in  a  sacrificed 
condition. 

Pointer  to  the  process's  message  buffer. 

The  status  of  the  process  in  the  system; 
i.e..  Blocked,  Running,  Ready,  etc. 

Identifies  relative  importance  of  the 
process;  used  in  gueuemg  and  scheduling 
operations. 

Specified  time  interval  in  which  a 

frocessor  is  assigned  to  this  process 
or  execution. 

Reschedule  time  period  for  a  recurrent 
process. 

Internal  name  of  the  processor  allocated 
to  the  process  for  execution. 

Save  area  for  the  initial  or  last  state 
of  execution;  i.e.,  instruction  counter 
and  processor  register  values. 
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TAELE  IV.   RESOURCE  CONTROL  BLOCK  DATA  STRUCTURE 


HELD 


EXAMPLE  RESOURCE 
SEMAPHORE     DEVICE 


ASSIGNED 
CREATOR 

OWNER 

EXTERNAL  NAME 
DEVICE  STATUS 

DEVICE  IID 

SHARED-PRIVAIE 

COUNTER-SIZE 

STORAGE  EEVICE 
NAME 

OPEN  FILE 

FILE  TYPE 


LEFT  QUEUE 
POINTER 

RIGHT  QUEUE 
POINTER 


T.  or  F. 

system 
proc.  iid 

creator 


N/A 

N/A 

S.  or  P. 
counter 


N/A 

N/A 

N/A 


Request 
messages 

Release 
messages 


T.  or  F. 

system 
proc.  iid 

interface 
proc.  iid 


active  or 
hold 

N/A 

S.  or  p. 
number 

external 
name 

N/A 

N/A 


process 
accessing 

process 
waiting 
for  access 


TYPES  AND  FIELD  USE 

.STORAGE FILES 

T.  or  F.    T.  or  F. 

system     system 
proc.  iid   proc.  iid 


File 
Manager 


active  or 
hold 

RCB  Nr. 

S.  or  P. 

space 
available 


N/A 


N/A 

Temporary 
Permanent. 

not  used 

file 

creation 

requests 


proc.  iid 


active  or 
hold 

RCB  Nr. 

S.  or  p. 

file 
length 

external 

name 

Read/fcrite 

Temporary 
Permanent 
both 

process 
accessing 

file 
open 
reguests 


FROM 

TO 

PRIORITY 

FILE  DATA 

MESSAGE 
POINTER 

UP-LINK 

DOWN-LINK 


SAMPLE  LEFT/RIGHT  QUEUE 

message  proc.  iid  proc.  iid  proc.  iid 
addressor 

message  message  message  message 

addressee  semaphore  semaphore  semaphore 

proc.  pri.  proc.  pri.  proc,  pri.  proc.  pri. 

N/A  N/A  file  iid  Read/Krite 

N/A  N/A  N/A 
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during  the  design  of  the  operating  system;  i.e.,  semaphores 
(message  class  identifiers) ,  devices  (readers,  writers, 
consoles,  etc.),  secondary  storage  devices  (tapes,  drums, 
disk  packs,  etc.),  and  files. 


15.1  [Disable  interrupts] 
Call  Interrupt_Disabler. 

15.2  [Create  a  PCB] 

If  {action  =  Create_PCB)  Then 
Begin. 

15.2.1  [Check,  for  space  and  authorization] 
If  ((space  available)  &  (Process  has 
authorization))  Then  assign  a  PCB 
Number  and  enter  data  passed; 

Else  set  Error  code. 

15.2.2  [Finished]  Go  to  step  15.8;  End. 

15.3  [Find  PCB  Number  corresponding  to  an 
External  Name] 

If  (action  =  Find  PIName)   Then   Do: 
Search   active   PCBs   for   specified 
external  name:  If  (found)  Then 
PIName  Parameter  <-  PCB  Number; 
Else  "PIName  Parameter  "Z-    0;   Go   to 
step  15.8;  End. 

15.4  [Check  validity  of  PCB  Number] 

If  (PCB  Number  is  invalid)  Then  Do; 
Set  Error  code;  go  to  step  15.8; 
End. 

15.5  [Free  a  PCB] 

If  (action  =  Release  PCB)  The-n 
Begin. 

15.5.1  [Check  authorization] 

If    (Process    has   authorization)    Then 
set  specified        PCB        status        to 

inactive;    Else   set   Error   code. 

15.5.2  [Finished]   Go   to   step    15. 8-;    End. 

15.6.  [Put      data    into   a   PCB] 

If    (action    =    Put_Data)    Then    Begin. 

15.6.1  [Check  authorization] 

If  (Process  has  authorization)  Then 
store  the  data;  Else  set  Error  code. 

15.6.2  [Finished]  Go  to  step  15.8;  End. 

15.7      [Get  data  from  a  PCB] 

if  (action  =  Get_Data)  Tiien 

Data  Parameter  <-  Desired  PCB  Field. 


15.8 


[Enable  interrupts] 
Call  Interrupt  Enat>l< 


ipt_r,nabler. 
ALGORITHM  15   PCB  STRUCTURES 
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16. 1  [Disable      interrupts  1 
Call   Interrupt_Disabler. 

16.2  [Create   an    BCB J 

If  (action  =  Create_RCB)  Then  Begin. 

16.2.1  [Check  if  space  is  available] 

If   (space  for  specified  RCE  type  is 

available)  Then 

assign  RCB  and  enter  data; 

Else  set  Error  code. 

16.2.2  [Finished]  Go  to  step  16.14. 

16.3  [Find  an  RCB  Number  corresponding  to 
an  External  Name] 

If  (action  =  Fina_RIName)  Then 
Begin. 

16.3.1  [Search  active  RCBs] 

Search   active  RCBs  for  the  External 
Name  specified. 

16.3.2  [Return  value] 

If  (External  Name  is  found)  Then 
RlName  Parameter  <-  RIName; 
Else  RlName^Parameter  <-  0. 

16.3.3  [Finished]  Go  to  step  16.14;  End. 

16.4  [Check  validity  of  RCB  Number] 
If  (Invalid  RCB  Number)  Then  Co; 
set  Error  code:"r 

go  to  step  16.14;  End. 

16.5  [Free  an  RCB] 

If   (action   =  Release_RCE)  Then  set 
RCB_Number  specified  to  unassigned. 


16.6  [Enter  data  in  an  RCB] 

If  (action  =  Put  Data)  Then 
enter  specified  data  element. 

16.7  [Retrieve  data  from  an  RCB] 
If  (action  =  Get_Data)  Tnen 
Data_Parameter  <-  desired  RCB  field. 

16.8  [Find  a  Process  in  a  queue] 

If  (action  =  Find_Proc)  Then  Begin. 

16.8.1  [Search   the  specified  Queue  for  the 
specified  PIName] 

Searcn  Queue  for  PIName: 
If  (found)  Then  return  the  data   and 
queue  position; 

Else  return  "Process  not  found".  ! 

i 

16.8.2  [Finished]  Go  to  step  16.14. 
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16.9  [Find  the  Process  at   the   specified 

fosition  in  a  Queue]  .  i 

f  faction  =  Find  At_Position)  Then  j 

Begin-  " 

16.9.1  [Find   the   Queue  element   at    the 
specified  position] 

Find  the  specified  Queue  element; 

If   (   specified   Queue   element   is  > 

active)   Then   return   data   in   the  i 

Queue   element:   Else   return  "Queue 

element   not   active". 

16.9.2  [Finished]    Go   to    step    16.14;    End. 

16. 10  [Enter   an   element   in    a   Queue] 

If    (action   =    Put_Que)    Then    enter    the 
data   in   the    specified  Queue 

16.11  [Remove   an    element   from   a    queue] 
If    (action    =    Get_Que)    Then    Begin. 

16.11.1  [Find   the    specified    gueue    element] 
Find   Queue   element; 

If    (Queue    element   is    found)    Then 
Remove   the    specified    Queue    element; 
Else   return    "element    not   found". 

16.11.2  [Finished]    Go   to   step    16.14;    End. 

16.12  [Transfer      a      queue    element    from    the 
specified      gueue      to      the        opposite 

If       (action   =   Transf er_Que) 
iegin. 


?ueue  ] 
hen  3% 


16.12.1  [Find  the  specified  gueue  element] 
Find  Queue  element; 

If  (Queue  element  is  found)  Then  Do; 
Remove  Queue  element;   Insert   Queue 
element  on  the  opposite  queue:  End; 
Else  return  "element  not  found". 

16.12.2  [Finished]   Go  to  step  16.14;  End. 

16.13  [Compare  specified  data  with  gueue 
element  data  in  a  specified  gueue] 
If  (action  =  Match)  Then  Begin. 

16.13.1  [Check   each   active   element  in  the 
queue  for  compatible  data  ] 
Match_Found  <-  False; 

For  i  =  (first  gueue  element)   Until 
(Last  gueue  element)  Do; 
compare  data: 
If  (compatible)  Then  Do; 
Match  found  <-  True;  exit  for   loop; 
End;  End: 

If  (Matcn_Found)  Then   Remove   gueue 
element  and  return  data; 
Else  return  "match  not  found". 

16.13.2  [Finished]    End. 
16.  14 


[Enable    interrupts] 
Call    Interrupt    Enanl* 


.er. 
ALGORITHM     1b       RCB    HANDLER 
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5 ,   Erimitive-Hardware_ Interface  ~  Level  .1.1 

A  processor  has  a  normal  complement  of  registers 
used  to  fetch,  select  and  execute  instructions,  and  a 
mechanism  for  interrupt  recognition.  To  provide  tc  the 
operating  system  the  facilities  for  altering  process 
execution  (i.e.,  preempt  and  schedule/reschedule  processes) 
and  to  protect  vital  operations  on  commonly  accessed  data 
structures,  a  set  of  primitives  have  been  designed  to  enable 
and  disable  interrupts  and  to  save,  set  and  reset  the 
processor  registers.  The  primitives,  Interrupt_Enabler, 
Interrupt_Disabler ,  Savestate  and  Restorestate,  defined 
below,  perform  these  functions  when  invoked  by  processes  and 
other  primitives. 


17.1   [Specific  or  all  interrupts] 

If  (Interrupt*  =  0)  Then  Enable  all 
the  interrupts  in  the  current 
Savevector;  Otherwise  Enable 
Interrupt*. 

AIGOEITHM  17   INTERRUPT  ENABLER 


18.1   [Specific  or  all  interrupts] 

If  (Interrupt*  =  0)  Then  Disable  all 
interrupts  and  save  status  in 
Savevector;  Otherwise  Disable 
Interrupt*. 

ALGORITHM  18   INTERRUPT  DISABLEfl 


19.1  [Disable  all  interrupts] 
Call  Interrupt_Disabxer. 

19.2  [Get  copy  of  processor  registers] 
Temp_regs  =  CPUREGS  (Processors) . 

19.3  [Save  copy  in  PCS] 
Call  PCB  uata  ("temi 


("  tetup_regs'1,  process) 

i 
ipi 

ALGORITHM  19   SAVESTATE 


19.  H      [Enable  the  interrupts] 
Call  Interrupt  Enabler. 


47 


20.1  [Disable  all  interrupts] 
Call  Interrupt^Disabler. 

20.2  [Get  cogy  of  saved  Stateyector 


all  PC9_Data  (" temp_Eegsn, Process) 

tSet  processor  registers] 
PUREGS  (Processor*)  =  Temp_Regs. 

t  Enable  the  interrupts] 
all  Interrupt  Enabler. 


ipt_ 

ALGORITHM  20   RESTORESTATE 
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IV.   DESIGN  VALIDATION 

This  chapter  is  concerned  with  implementation  of  the 
modules  specified  in  Chapter  III,  testing  the  design 
correctness  and  demonstrating  the  feasibility  of  the 
proposed  operating  system  model.  Time  constraints  precluded 
the  development  of  the  entire  system,  so  the  decision  was 
made  to  verify  selected  functions  (i.e.,  interprocess 
communication  and  synchronization  using  semaphores  and 
messages) .  For  example,  the  Error  Handler  was  implemented 
to  receive  error  messages  and  to  generate  messages  for  the 
system  operator,  but  error  correction  routines  were  left 
undefined.  Similarly,  the  Operator  System  Communicator 
module  was  provided  a  minimum  set  of  control  message  codes 
to  identify  selected  actions  (add  or  delete  a  device,  etc.) 
and  to  handle  message  passing.  Certain  primitives, 
including  these  which  perform  the  primary,  functions  of 
dynamic  creation  and  control  of  processes  and  resources  as 
well  as  interprocess  communication,  were  implemented  in 
detail.  The  criterion  that  modules  were  to  be  independent 
allowed  the  implementation  to  proceed  along  a  path  through 
the  processes  to  the  primitives  with  incomplete  or  partially 
developed  modules  at  several  nodes.  Model  testing  was 
performed  using  three  additional  modules:  a  hardware 
simulator,  an  initialization  procedure  and  a  preprocessor 
macro.  The  Formal  Module  Specifications  with  accompanying 
PL/I  ittplementations,  and  the  test  modules  are  described  in 
appendices  C  and  D,  respectively. 

A.   1HE  HARDWARE  SIMULATOR 

The  Hardware  Driver  module  was  designed  to  perform 
hardware  functions  such  as  recognition  of  interrupts  and 
execution  of  code  at  an  address  specified  by  the  instruction 
counter.  Additionally,   code   was   included   to   create   the 
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desired   system  state  so   that   system   behavior   could  be 
validated. 

One  of  the  processor  "registers"  was  used  as  an 
instruction  counter  to  indicate  the  current  status  of 
program  execution  and  another  "register"  was  used  to 
identify  the  process  which  was  scheduled  to  execute.  An 
integer  mapping  was  used  to  identify  the  processes  (i.e., 
the  Error  Handler  was  identified  as  process  one  (1) ,  the 
Operator  System  Communicator  as  process  two  (2),  etc.).  The 
process  identification  and  instruction  counter  were 
separated  tc  avoid  encoding  and  decoding  information  in  the 
Hardware  Driver,  and  to  allow  the  model  to  be  expandable  to 
simulate  paging. 

B.   THE  INITIALIZATION  MODULE 

A  special  module  was  implemented  for  initializing 
interface  variables  and  for  creating  the  environment 
necessary  to  start  up  the  system.  PCB's  were  created  for 
the  operating  system  processes  as  were  the  semaphore  RCB's 
they  reguired  for  interprocess  communication.  The 
initialization  procedure  in  the  PCB  Structures  module  was 
used  to  create  the  PCB  for  the  Error  Handler;  the  PCB's  for 
the  remaining  system  processes  were  created  dynamically  in 
the  Initialization  routine  with  the  Error  Handler  identified 
as  the  running  process.  Message  and  I/O  buffers  were 
allocated  and  assigned  to  each  of  the  system  processes,  and 
the  internal  identification  of  the  resources  reguired  by 
each  process  were  entered  in  their  respective  access 
vectors. 

The  initialization  process  could  have  teen  inpleaented 
Using  PL/I  initial  attributes  (initializing  variables  at 
compile  time)  within  the  various  modules.  However,  in 
consonance  with  the  Decision  Hiding  Criteria,   the   initial- 
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ization  of  the  interface  variables  was  implemented  in  a  sep- 
arate module.  Additionally,  the  initial  configuration  was 
more  easily  modified  during  the  design  and  testing  phase. 

C.  THE  EREPEOCESSOfi  MACRO 

A  preprocessor  macro  (SIMULTR)  was  used  to  adapt  the 
PL/I  modules  for  testing.  Simulation  interrupt  points 
(SIM_INTERRUPT_PTs)  were  placed  in  the  modules  where  a 
process  night  be  blocked  (i.e.,  after  invoking  the  primitive 
fieguest)  .  The  macro  was  implemented  to  include  the  code 
necessary  to  generate  a  label  at  the  selected  interrupt 
points,  set  the  simulation  instruction  counter  tc  the 
appropriate  value  and  exit  the  module.  The  additional 
statements  SIM_STAET  and  SIM_END  were  necessary  to  generate 
the  code  to  initialize  the  simulation  and  generate 
declarations. 

D.  TESTS  OF  SELECTED  OPERATING  SYSTEM  FUNCTIONS 

Selected  system  processes  were  implemented  to  verify 
interprocess  communication  technigues.  Since  the  test 
program  reguired  to  realistically  demonstrate  this  function 
would  encompass  the  operations  performed  by  Request, 
Release,  Allocator,  PCB  Structures  and  RCE  Handler,  these 
primitives  were  implemented  in  detail  to  provide  a  basis  for 
testing  the  model.  Subsequently,  test  programs  were 
designed  and  implemented  to  assure  the  correctness  of  the 
data  storage  and  retrieval  operations,  gueue  manipulation 
techniques,  and  message  handling  procedures. 

In  particular,  the  Initialization  Module  was  invoked  to 
initialize  the  interface  variables,  establish  the  PCB's  for 
the  selected  processes  and  to  create  RC3's  for  the  message 
class  identifiers  (semaphores) .  Once  the  initial 
environment  was  established,  the  ability  to  send  messages  to 
a  specific  process  was  tested   by   multiple   invocations   of 
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Release  with  a  specific  semaphore,  a  varying  addressee,  and 
a  unigue  message.  Reguest  was  then  invoked  with  the  same 
semaphore  and  both  specific  and  general  addressees  to  verify 
the  logic  of  Release,  Allocator  and  RCB  Structures.  The 
roles  of  Release  and  Reguest  were  then  reversed.  The 
primitives  were  tested  in  a  similar  manner  using  messages 
with  general  addressees. 

Having  successfully  tested  these  primitives,  the 
Scheduler  primitive  and  the  Hardware  Driver  were  implemented 
to  schedule  and  simulate  running  the  selected  system 
processes.  In  particular,  a  test  program  was  included  in 
the  Hardware  Driver  to  simulate  the  system  operator  entering 
commands  to  add  an  input  device,  an  output  device,  and  a 
disk  unit.  These  messages  were  released  to  the  Input 
Controller  to  be  passed  to  the  Operator  System  Communicator. 
The  system  processes,  upon  being  selected  for  execution  and 
then  invoked  by  the  Hardware  Driver,  initiated  a  Reguest  for 
a  message.  Since  there  was  a  matching  Release  on  the  gueue 
for  the  Input  Controller,  it  was  received,  interpreted  and 
passed  to  the  Operator  System  Communicator  which  in  turn 
received  and  interpreted  the  message.  The  simulation 
continued  until  the  initial  three  messages  released  by  the 
Hardware  Driver  and  the  subseguent  responses  were  received 
by  the  appropriate  system  processes. 

The  write  statements  generated  by  the  Preprocessor  Macro 
were  used  to  trace  the  flow  of  messages  from  the  Input 
Controller  to  the  Operator  System  Communicator,  and  from 
that  process  to  the  Input  Controller,  Output  Controller  and 
File  Manager.  The  logic  used  to  create  the  interface 
processes  was  not  validated;  only  the  seguence  in  which  the 
messages  were  reguested,  released  and  received  was  verified. 
Message  flow  to  the  Error  Handler  was  also  demonstrated 
during  the  preliminary  system  tests;  however,  comprehensive 
error  generation  and  validation  was  not  accomplished. 
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7.   SUMMARY  AND  RECOMMENDATIONS 

The  emergence  of  sophisticated,  versatile  computer 
systems  has  resulted  in  the  need  for  operafing  systems  which 
are  efficient,  adaptable,  maintainable  and  general  purpose. 
Adaptability  permits  expansion  or  modification  within 
reasonable  cost  and  time  constraints.  Maintainability  makes 
system  error  detection  and  correction  more  feasible. 
Generality  must  exist  if  the  operating  system  is  to  be 
useful  to  the  many  classes  of  potential  users. 

A.   SUHMABY. 

As  presented  in  Chapter  II,  the  first  step  in  the  design 
of  an  operating  system  was  the  identification  and 
specification  of  the  overall  system  behavior  in  a 
hardware-software  environment.  Before  specifying  and 
implementing  the  system  modules,  a  set  of  primary  functions 
were  postulated  and  the  design  was  then  carried  cut  by 
employing  the  techniques  of  Structured  Programming,  Decision 
Hiding  and  Hierarchical  Ordering.  At  each  level  of 
development,  new  functions  were  identified  and  the  decision 
was  made  to  either  implement  the  functions  within  the  scope 
of  the  current  module  being  designed  or  to  iaplement  it  in  a 
separate  module.  The  principle  consideration  for  specifying 
new  modules  was  the  need  for  having  one  module  perform 
common  services  for  the  other  modules,  thus  reducing  the 
system  complexity. 

The  modules  were  grouped  into  two  classes  (processes  and 
primitives)  and  ordered  hierarchically.  As  the  design 
proceeded,  hardware  dependencies  were  identified  and  program 
stubs  were  inserted  to  identify  the  areas  of  incomplete 
specification.  However,  the  functions  to  be  performed  at 
these  stubs  were  defined  so  that  the  appropriate  code  nay  be 
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written  and  inserted  as  the  target  machine  and  system 
configuration  are  specified.  In  this  manner,  it  was  possible 
to  accomplish  the  goal  of  designing  a  well  defined  general 
purpose  operating  system. 

Though  the  goal  was  far  reaching,  it  did  not  seem 
practical  to  approach  the  design  of  an  operating  system  by 
considering  each  segment  of  the  system  independently  (for 
example,  designing  interprocess  communication  without 
considering  data  structures  and  data  access  methods)  .  The 
design  proceeded  in  a  "top-down"  fashion,  specifying  modules 
to  perform  the  various  functions  required  by  the  previously 
defined  nodules.  As  a  result  of  having  a  set  of  machine 
independent  module  definitions,  it  was  then  possible  to 
implement  and  test  the  postulated  function  of  each  module 
separately  at  first,  and  then  collectively.  Finally,  formal 
specifications  identifying  the  parameters,  data  structures, 
module  interfaces,  and  primary  functions  were  developed  for 
each  module. 

Many  of  the  features  of  the  design  are  of  particular 
interest.  The  interprocess  communication  modules  define  the 
techniques  which  aid  in  resource  acquisition  and  process 
control  (interrupt)  and  which  provide  the  ability  for 
synchronization  of  asynchronous  operations.  The  data 
structures  modules  are  the  focal  point  for  accessing, 
transferring  and  storing  of  data  while  allowing  for  the 
design  and  implementation  of  other  modules  which  are 
independent  of  the  data  structures.  This  latter  case 
defines  a  mechanism  for  generating  adaptive  changes  to  an 
existing  data  structure  without  necessitating  major  changes 
to  other  modules  providing  the  change  is  within  the 
interface  constraints. 
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fl.   RECOMMENEATIONS 

As  stated  previously,  the  primary  goal  of  this  project 
was  the  design  of  a  general  purpose,  .  modular  operating 
system  which,  at  least  conceptually,  was  hardware 
independent.  Since  module  functions  were  postulated  within 
a  set  cf  generalized  constraints,  extenticns  of  this  work 
may  proceed  in  several  directions.  Firstly,  each  module 
specification  should  be  more  closely  investigated  to 
determine  if  a  better  technique  for  performing  the  function 
may  replace  the  proposed  one. 

Secondly,  investigation  into  the  hardware  versus 
software  dilemma  should  continue  with  the  emphasis  on 
identifying  operating  system  functions  which,  if  performed 
by  hardware,  would  enhance  system  performance  without 
degradation  of  system  flexibility,  adaptability,  and 
generality.  In  particular,  the  primitives  Request  and 
Release  as  designed  in  this  system  are  two  functions  which 
could  conceivably  be  implemented  in  hardware.  Additionally, 
disabling  and  enabling  interrupts,  saving  and  restoring 
process  states  should  be  performed  by  simple  machine 
instructions . 

Thirdly,  a  target  machine  should  be  specified  for  which 
a  sinulaticn  model  may  be  developed  to  test  the  correctness 
of  the  design  decisions  in  a  real  time  and  multiprocessing, 
multiprogramming  environmen-t .  The  stubs  should  be  replaced 
with  workable  test  programs  to  support  the  simulation. 

The  programming  language  PL/I  was  used  for  module 
ittpleHientuticn  and  testing  rather  than  a  conventional  use  of 
an  assembler  language.  The  use  of  PL/I  enhanced  the 
comprehensability  of  the  program  logic  and  provided  several 
mechanisms  which  aided  in  module  implementation  and  testing; 
i.e.,   based   and   pointer  variables,  on  conditions,  generic 
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entry  pcint  specifications,  and  preprocessor  functions. 
These  high  level  language  constructs  and  the  addition  of  a 
construct  for  supporting  queueing  operations  are  reconi mended 
for  inclusion  in  CS-4  (see  Appendix  B) .  Additionally,  a 
compiler  for  the  language  should  be  designed  which  euploys 
the  latest  techniques  for  code  optimization  since  compile 
time  is,  in  general,  less  critical  than  execution  time. 
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APPENDIX  A:   GLOSSARY 


Access  Vector;  PCB  data  element  that  identifies  the 
resources  and  primitives  which  may  be  used  by  the 
process. 

Active:  A  status  value  which  indicates  that  a  process  is 
waiting  for  a  processor. 

Algorithm:  A  prescribed  set  of  well-defined  rules  for  the 
solution  of  a  problem  in  a  finite  number  of  steps. 

Assignment  Vector:  PCB  data  element  which  identifies  the 
resources  a  process  currently  controls,  must  be  a  subset 
of  the  access  vector. 

BlocXed-f or-Iiraer  (BlockedT) :  A  status  value  which 
indicates  that  a  process  is  waiting  for  a  deadline. 

Buffer:  A  temporary  storage  area  used  for  the  transmission 
of  data. 

Child:  ECB  data  element  that  identifies  the  first 
dependent  process  in  the  list  of  related  dependent 
processes. 

Cycle  Time:  PCB  data  element  that  identifies  the 
reschedule  time  interval  for  a  recurrent  process. 

Deadline:  The  latest  time  at  which  the  execution  of  a 
process  may  begin. 

Deadlock:  The  condition  that  results  from  the  allocation  of 
resources  among  certain  processes  in  such  a  way  that  it 
is  impossible  to  grant  additional  requests  to  thes-e 
processes. 

File:   A  collection  of  related  data  items  treated  as  a  unit. 

Hardware:  Physical  eguipment,  e.g.,  mechanical, 
electrical,  or  electronic  devices. 

Interface:  Ihe  linkage  and  conventions  established  for 
communication  between  twc  independent  elements,  usually 
between  a  process  and  another  process,  computer 
operator,  I/O  device,  etc. 

Interrupt:  A  break  in  the  normal  flow  of  execution  usually 
caused  by  a  hardware-generated  signal. 

JCL:  Job  Control  Language  -  used  to  provide  job 
specifications. 
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Job  Queue:  Contains  the  JCL  and  administrative  data  of  a 
process  prior  to  its  creation. 

Left  Sibling:  PCB  data  element  that  links  the  process  to 
and  identifies  a  related  independent  process  having  the 
same  parent. 

LSI:   Large  scale  integration. 

Module:  One  buliding  block  or  logical  unit  which  is  used 
in  the  construction  of  a  system. 

Multiprocessing:   The   use   of   two  or   more   processors  to 

logically  or  functionally   divide   processes   and  to 

simultaneously   execute  various  processes  or  segments  of 
processes  asynchronously. 

Multiprogramming:   The  use   of   the   computing   system   to 

perform  interleaved  execution  of  two  or   more   different 

processes   which  simultaneously   contend  for   system 
resources. 

Operating  System:  A  set  of  programs  and  routines  which 
guide  a  processor  in  the  performance  of  its  tasks  and 
assist  the  programs  and  programmers  with  supporting 
functions. 

Page:  A  process  section  of  convienient  size  for 
transmission  uetween  secondary  storage  and  main  storage. 

Page  Table:  PCB  data  element  that  contains  the  location  of 
the  process*  pages  in  secondary  storage. 

Parent:  PCB  data  element  that  identifies  the  process  on 
which  this  process  is  immediately  dependent. 

PCB:  Process  Control  Block,  a  collection  of  control  data 
concerning  a  process. 

Primative:  An  algorithm  that  is  invoked  by  a  process  and 
is  executed  as  a  part  of  the  invoking  process. 

PreeDpticn:  The  seizing  of  resources  previously  allocated 
to  processes. 

Print  Queue:  Contains  the  administrative  data  identifying 
processes'  output  files. 

Priority:  PCB  data  element  that  identifies  the  order  of 
precedence  for  competing  processes. 

Process:  An  algorithm  which  requires  resources  and  can  he 
Characterized  by  its  state  and  environment. 
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Processor  State  Vector:  PCB  data  element  that  specifies 
the  necessary  information  to  start  (restart)  the 
process;  i.e.,  processor's  registers  contents. 

Quantum:  PCE  data  element  that  identifies  a  limited  or 
algor ithmically  specified  time  interval  during  which  a 
processor  is  assigned  to  a  process  in  a  multiprogramming 
environment  for  sharing  the  pr6cessor  among  competing 
processes. 

Queue:  £n  ordered  or  unordered  list  of  processes  waiting 
for  seme  resource  or  service. 

RCB:  Resource  Control  Block,  a  collection  of  data 
concerning  a  resource. 

Resource:  Any  facility  of  the  computer  system  or  operating 
system  required  by  a  process. 

Right  Sibling:  PCB  data  element  that  links  the  process  to 
and  identifies  a  related  independent  process  having  the 
same  parent. 

Running:  A  status  value  which  indicates  that  a  process  is 
in  execution. 

Semaphore:   Identifies  a  resource  or  class  of  resources. 

Software:  Programs  or  routines  to  be  executed  on  computer 
hardware. 

Spooling:  A  technique  for  interleaving  1/0  operations  and 
process  execution. 

Status:  PCB  data  element  that  identifies  the  current  state 
ox  the  process  in  the  system. 

Stub:  Denotes  a  logical  break  in  a  program  at  which  point  a 
subprogram  or  macro  call  may  be  inserted  when  the 
functional  subspecif ication  is  implemented. 

Suspend:  A  status  value  which  indicates  that  a  process  is 
not  contending  tor  resources  and  cannot  be  scheduled  for 
execution  until  a  system  or  process  imposed  condition 
has  teen  satisfied. 
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APPENDIX  B:   MODELLING  LANGUAGE 

The  work  done  by  D.  L.  Parnas  in  the  development  of 
SODAS  [Bef.  9]  and  the  high  level  language  operating 
systems,  such  as  the  Burroughs  MCP,  23UITICS  and  Project  SUE, 
have  provided  the  motivation  for  modelling  and  implementing 
the  AADC  operating  system  in  a  high  level  language. 
Furthermore,  the  AADC  program  specifications  have  included 
the  development  of  a  new  high  level  language,  tentatively 
called  CS-4,  and  the  design  and  implementation  of  an 
operating  system  for  AADC  in  the  proposed  language  [Refs.  11 
and  19].  Basically,  CS-4  has  developed  as  an  extension  to 
the  Navy  Tactical  Compiler  Monitor  System  (CMS-2)  with  the 
impetus  on  utilizing  the  proposed  AADC  hardware  features  and 
facilitating  the  programming  of  efficient  executive  and 
applications  programs  [Ref.  20]. 

A  comparison  of  selected  features  of  CS-4  to  those 
defined  in  the  languages  available  at  the  Naval  Postgraduate 
School  has  been  the  basis  for  the  selection  of  a  high  level 
language  for  modelling.  The  results  of  the  comparison, 
presented  in  Table  V,  have  led  to  the  selection  of  PL/I  in 
that  it  is  more  representative  of  CS-4  than  the  ether 
languages.  Additionally,  PL/I  has  provided  a  number  of  I/O 
control,  storage  allocation  ana  system  contrcl  features  that 
facilitated  testing  and  simulating  the  model.  Those 
features  of  CS-4  considered  gertnaine  to  the  modelling  effort 
are  defined  below: 

1)  Compound  Data  Structures:  A  hierarchical  set  of 
variables  that  refer  to  an  aggregate  of  data  items 
that  jiay  or  may  not  have  dxrierent  attributes  (data 
types) , 

2)  Logical,  Boolean,  Arithmetic  and  Conditional 
Operators:  A  set  of  symbols  each  specifying  .an 
operation  to  be  performed;  the  result  of  which 
depends  upon  the  type  cf  data  and  context  i n  which  it 
occurs,  i.  <j  . , 

IF   {£  (A-1)  >  b]  OR  JC  =  3)}   THEN  ... 
the  minus  sign,  -,  is  arithmetic,  the  *OR'  is  rcolean 
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and  the  greater  than,  >,   and   equal,   =  ,   signs   are 
conditional  operators, 

3)  External  Data  Declaration:  An  explicit  or 
contextual  declaration  of  an  identifier  such  that  it 
is  only  known  within  the  scope  of  the  declaration, 

4)  External  Procedure  Declaration:  An  explicit  or 
contextual  declaration  of  a  procedure  such  that  the 
procedure  is  only  known  within  the  scope  of  the 
declaration, 

5)  Variable  Size  Array  Declarations  at  Runtime:  The 
diirension  of  an  array  is  determined  and  space 
allocated  during  execution  of  the  program, 

6)  Flew  Control:  The  ability  to  control  the  execution 
of  a  specific  instruction  or  set  of  instructions: 

i.  Algolic  Case  Statment 

ii.  If  and  compound  If  Statment 

iii.  Do  Statment 

iv.  While  Statment, 

7)  Limited  Scope  Variables:  An  identifier  which  is 
known  only  within  the  scope  of  its  declaration, 

8)  Macro  Definition:  A  compile  time  feature  which 
provides  the  ability  to  specify  an  instruction  or  set 
of  instructions  which  replace  the  macro  name  where  it 
occurs  in  the  source  program, 

9)  Character  String:  A  string  composed  of  zero  or  more 
characters  from  the  complete  set  of  characters  whose 
bit  configuration  is  recognizable  by  the  computer 
system  in  use, 
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APPENDIX  C:   MODULE  SPECIFICATION  AND  IMPLEMENTATION 


PREPROCESSOR  FUNCTION 


/*  ***************************** 

NAME  CHANGER  PREPROCESSOR  MACRO,  USED  TO  SHORTEN 
IDENTIFIERS  WITH  THE  EXTERNAL  ATTRIBUTE  TO  SEVEN 
CHARACTERS  DUE  TO  A  PL/I  RESTRICTION 

"ENAELED"  BY   ^INCLUDE  NAMCHGR;  */ 

XDECLARE  ( 

CURRENT  PROCESS, 
CREATE  BCB, 
EESTR07  RCB, 
DEVICE  "DIRECTORY, 
EEV  L  LIMIT, 
DEV~U~LIMIT, 
ERRT3R-HANDLER, 
FILE  T  LIMIT, 
FILI'MANAGER, 
FILE~~SPACE  MANAGER, 
FILE"U  LIMIT, 
FINE~PINAME, 
FINE_INAM£, 
INITIALIZATION, 
INITIATOR, 
INPUT  CONTROLLER, 
INTERRUPT  HANDLER, 
OPERATOR  "SYSTEM  COMMUNICATOR, 
OUTPUT  CENTROLLUR, 
PCBSTRINT, 
FCT  L  LIMIT, 
PCT"~U~LIMIT, 
PRIMITIVE  ACTIVATE, 
PEIMITIVE_ALLOCATOR, 
PRIMITIVE-CREATE  PCB, 
PRIMITIVE~DESTROY, 
PRIMITIVE~GETQU£, 

FRIMITIVE~INTEERJFT  DIS IN ABLER, 
PRIMITIVE_INTERRU?T-ENABLER, 
FRIMITIVE^PCBDATA,  ~ 
PRIMITIVE^PUTQUE, 
FRIMITIVE~RCBDATA, 
PRIMITIVE_RCB  HANDLER, 
PEIMITIVE_ECB-HATCH, 
PEIMITIVE~RELEASE, 
PRIMITIVE  EESIORESTATE, 
PRIMITIVE'REQUEST, 
PRI«ITIVE~SAVE3TATE, 
PRIMITIVE""SCHEDULER, 
PROCESSOR, 
RCB  BITDATA, 
RCB-CHARDAT, 
RCB  FIND, 
RCEIFIXBBAT, 
RCB  TRANSFERQ, 
SEM"LIMIT, 
SEM_L  LIMIT, 
SYS  PROCESSOR, 
lER"flINATOR 
)  CHARACTER  ; 
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XCBEATE_ECB  =  'CHEAT  R'; 
XCURRENT  PROCESS  =  'CURPROC  ; 

%DESIROY-RCE  =  'DSIRY  R'; 

^DEVICE  "DIRECTORY  =  '"BEV  DIC; 

XDEV  L  IIMIT  =  'LDEVLIM'J 

%ERBOR~HANDLEE  =  'ERRHDLR1; 

XDEV    U^LIMIT    =    'UDEVLIM': 

JSFirE   X    LIMIT    =    '  IFILLIM1; 

XFILE~M"SNAGER  =  ' FILEHAN'; 

$FIIE-SPAC£  MANAGER  =  'FSPAMN'; 

£FILE~U  IIMTT  =  •UFILLIB*; 

SSFIBDTBAflE    =    'FNDINAM'; 

55FIND~PINAME    =    'FPINAME1; 

XlNITl£LIZATION=     'INITIZE'; 

XINITIATCB    =,INITATR«     ; 

XINFUT    CCNTRCLLER='IN    CONT'; 

XINIERIUPT    HANDLER    =    """INTKOLR'     ; 

^OPERATOR   SYSTEM    COMMUNICATOR    =  «CP    COKM'     ; 

S50UTPUI    CONTROLLER    =    'OUT    CON'     ;       ~ 

SSPCESTRTNI    =     'PCBINII';       ~ 

SSPCT    L    LIMIT    =    'LPCTLIM'; 

%PCT    U~LIKIT    =    'UPCTLIM'; 

SSPBIHITIVE    ACTIVATE    ='ACTIVAT'; 

XPBIMITIVF~AlLOCATOR  =  'ALLOCTR'  ; 

??PRIKITIVE~CREATE    PCB    =    'CREAT    P'; 

%PRIMITIV£~DESTEOY    ='DESTEOY';~ 

£PRIMITIVE_G£TQU£    =    'GETQUER': 

5bPBIMITIVE_INT£RRUPT    DISENABLEE    =    'DISNABL' 

%PRIMITIVE-INIERRUPT~ENABLER    =    'ENABLE    '     ; 

?&PRIMITIVE~PCBDATA   ="*'PCBSTR'; 

%PRIMITIVE-PUIQUE=«PUTQUE' ; 

%PEIMITIVE""RCBDATA='RCBHDLR'  ; 

55PRIMITIVE~RCB    HANDLER    =    'RCBHDLR'; 

^PRIMITIVE  ECB~KAICK='RCBMTCH' ; 

$JPRIMIIIVE~REL"EASE    =     'RELEASE': 

%PRIMIIIVE~EESTORESTATE  =  'RESTATE'; 

^PRIMITIVE  REQUEST  =  'REQUEST'; 

2PK1MITIVE~SAVESTATE  =  'SAVSTAT'; 

^PRIMITIVE  SCHEDULER  =  'SCHEDLR'; 

StPROCESSCR    =     'PRCSSR'; 

5ifiCE_BITEATA    =    'BIIDAIA'; 

%RCE  CHAREAT='CHARBAT' ; 

SBCB^FIND='BCBFIND« ; 

5SBCE    FIXECAT='EIXBDAT' ; 

%RCE~~TRANSFERQ    =     'TRANSQR'; 

%SEt~LIMII    =    fUSEMLIM'; 

%SEtrL    LIMIT    =    'LSEMLIH'; 

SJSYS^PRCCESSCE    =     'SYSPSCR'     ; 

STEBTilNAICR    =    'TERMNTR'; 


/*    ***************************** 

USEFUI  DECLARATIONS  NOT  PROVIDED  BY  PL/I. 

INCLUDED  BY   ^INCLUDE  GENDEC;  */ 

DCL  TRUE  EIT(1)  STATIC  INITIAL  (' 1  «-B)  ; 
DCL  FALSE  BI'i(1)  STATIC  INITIAL  (' 0  '  B)  ; 


^DECLARE  EOREVER  CHAR; 
%FOFEV£R= 'WHILE  (TRUE)'; 
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y*  ************************   ***** 

PREPROCESSOR  IMPLEMENTATION  OF  A  CASS  STA1MENT. 

"ENAELED"    BY       3SINCLUDE    CASESTM.  */ 

XDCL  DO_ACTICN  OF  ENTRY  RETOENS  (CHAR)  ; 

58DCL  CASE  ENTRY  RETURNS (CHAR); 

%DC1  END  CF  CASES  ENTRY  RETURNS  (CHAR)  ; 

SDCL  ENDtASU  CHAR; 

5SDCL  (3I,aI1,3NEST)  FIXED; 

%DCL    £K  FIXED; 

35ENECASE  ='GC  TO  END  OF  CASE  STMT'; 
2211  =  -1;  ~   " 

%a>I=    -1; 
S3NEST  =  0; 

»DO_ACTICN_OF:  PROC  RETURNS  (CHAR) ; 

SNEST  =  3NEST  +  1; 
RETURN  (• BEGIN;   GO  TO«); 
XENE; 

3SCASE:  PECC  RETURNS  (CHAR)  ; 

IF  (SNEST  =  1)  THEN  31  =  31  +  1  ; 

ELSE  a)I1  =  a)I1  +  1; 
PETUR5  (•CASELABM  ; 
SEND; 

XEND_OF_CASES:  PROC  RETURNS (CHAR) ; 

IF  (SNEST  =  1)  THEN  DO;  3K  =  31;  SI  =  -1;  END; 

ELSE  DO;  3K  =  311;  3I1=-1;  END; 
G.NEST  =  3NEST  -1; 
EETURN('DCL  CASELAB(a)K)  LABEL; 

END  OF  CASE  STMT:   END1); 
XEND;     ~   ""   ■  ~ 


/ 


****************************** 

DECLARATIONS  FOR  IDENTIFIERS  USED  AS  INTERFACE  VARIABLES 
WITH  REQUEST  AND  RELEASE,  AND  AS  VALUES  PASSED  IN 
MESSAGES. 

INCLUDED  IN  PROGRAM  BY  ^INCLUDE  REQRELD;  */ 

DECLARE  (  /*   REQUEST  -  RELEASE  INTERFACE   */ 
ANYPROC, 
$ENDJOB, 
SERROR- 
SFILECP, 
$IEUFI, 
JINANE, 
SINPUT. 
$INrIDEV, 
JINlfiPT, 
SJCE^SP, 
$  NEW JOB, 
$GBUFF, 
$OPR  10, 
SOUIPUT, 

iPUTour, 

JPBINTQ, 

$RFILE*I, 
$SPACE, 
3WAIT 
)  FIXED  BIHARY(15)  EXTERNAL; 
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DECLARE  (  /* 
$$A 
$$D 
$$E 
$$p 

$$S 
$$T 
)  FIXE 
BECIARE(  /* 
$$C 
$$L 
l$D 
$$D 
|$D 
$$E 
$$I 
$$0 
l$0 
$$E 
$$S 
$$V 
)  FIXE 


OPERATION 


/* 
/* 
/* 
/* 

/* 


ED, 

ELET, 

XT  NT, 

EEMF, 

PACE, 

EMPF 

D  BINARY ( 

OPERATION 

LOSE,   /* 

IRAD,  /* 

IRDL,  /* 

IRRD,  /* 

STYF,   /* 

OF,  /*  EN 

NTPC, 

FENF, 

ECOM, 

EAD, 

PCMN, 

RITE 


/* 
/* 
/* 
/* 
/* 


E  BINARY ( 


IDENTI 

ADD  A 

DELETE 

REQUES 

PERHAN 

SPACE  R 

TEMPOS 

15)  EXTE 

IDENIIF 

CLOSE 

DIRECTOR 

DIRECTOF 

DIRECTOR 

DESTROY 

D  OF  FIL 

INTERFA 

OPEN  FI 

OPERATO 

READ  0 

SPACE  M 

WRITE 

15)  EXTE 


FIEES  FOR  FILE  SPACE  MANAGER  */ 
DEVICE   */ 

A  DEVICE   */ 
T  FOR  AM.  EXTENT   */ 
FNT  TYPE  FILE   */ 
EQUESTED   */ 
ARY  TYPE  FILE   */ 
RN AL " 

iers'for  FILE  MANAGER    */ 
FILE  */ 

Y  ADD  */ 

Y  DELETE  */ 

Y  READ  */ 
FILE  */ 

p  ♦  y 

CE  PROCESS  IDENTIFIER  */ 

LE  */ 

R  SYSTEM  COMMUNICATOR  ID.   */ 

PERATION   */ 

ANAGER  IDENTIFIER  */ 

OPERATION   */ 

RNAL; 


DECIARE(  /*  OPERATION  IDENTIFIERS  FOR  OPERATOR  SYS  CCMMUN  */ 
$$DCNE, 
$$FAIL- 
$$OPRTR, 

$$PASS   /*  PASS  TO  OPERATOR  */ 
)  FIXED  BINARY (15)  EXTERNAL; 

DECLARE  (  /*  OPERATION  IDENTIFIERS  FOR  OUTPUT  CONTROLLER  */ 
$$FILOP, 
$$JCL, 
$$STOP, 
$  $  T  F  R  M 
FIXED  BINARY  (15)  EXTERNAL; 


) 


DCL  MESSAGE  POINTER  S 
DCL  1  MESSAGE  BUFFER 
2  REIEASCE  FIXED 
2  ANSWER  REQUEST 
2  MSG  SEMAPHORE 
2  BUFTER  LOCATION 
2  DATA  FIELD, 

CHlR  FIELD1  C 
CHA2~FIELD2  C 
CHAR~IIELD3  C 
CHAR^FIELDU  C 
FIEL"D1  FIXED 
BIELD2  FIXED 
EIELD3  FIXED 
FIELD4  FIXED 
FIELD5  FIXED 
FIELE6  FIXED 


IATIC  ; 

EASED (MESSAGE)  , 
BINARY  (15)  , 
BIIJ[1  J  , 

FIXED  BINARY  (15)  , 
POINTER, 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

DECIARE 

DECLARE 


HAR(8] 
HAR(8 
HAR(8 
HAR(8) 

binar' 

BINARY 
BINARY 
BINARY 
EINARY 
BINARY 


15) 

15( 

15 

15 


1  OUTPUT  BUFFER  BASED  (OBUFPTR) , 

2  OUT  BUTF   CHAR(132)  ; 

1  INPUT  BUFFER   BASED  (IBUFPTR)  , 

2  IN  EU7F  CHAR  (80)  ; 
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/*  4*******************     *    ******** 

DECLARATIONS  FOE  IDENTIFIERS  USED  AS  INTERFACE  VARIABLES 
WITH  PCB  STRUCTURES. 

INCLUDED  BY   %INCLUED  PCBDCL;  */ 

DECIABE  PEIMITIVE  PCBDATA  GENERIC 


(DATCHAR  ENTRY  /*  PUT  OR  GET  CHARACTER  TYPE  DATA  */ 
(FIXED  BINAR/f^_/*_PINAME  =  PCB  NUMEER*/ 

,/*  FIELD  IDENTIFIED  */ 


(FIXED  BINARY./*  PINAME 
BIT{1),/*  3PUT  OR  a)GET 
FIXED  BINARY,/*  FIELD  I*,.. 
CHAR  (8),/*  DATA  FIELD  */ 
FIXED  BINARY  /*  ERROR  PARAMETER  */) / 

EATFIXB  ENTRY  /*  PUT  OR  GET  FIXED  BINARY  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUMBER*/ 
BIT(1),  /*  SPUT  OR  3GET  */ 
FIXED  BINARY,/*  FIELD  IDENTIFIES  */ 
FIXED  BINARY,  /*  DATA  HELD  */ 
FIXED  BINARY   /*  ERROR  PRAMETEB  */) , 

DATPTR  ENTRY  /*  PUT  OR  GET  POINTER  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUMBER*/ 
BUM),  /*  &PUT  OR  a)GET  */ 
FIXED  BINARY,/*  FIELD  IDENTIFIER  */ 
POINTER.  /*  DATA  FIELD  */ 
FIXED  BINARY   /*  ERROR  PRAMETEB  */) , 

EATEIT2  ENTRY  /*  BIT  (2)  ARRAY  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUMBER*/ 
BIT(1),  /*  3-PUT  OR  3GET  */ 
FIXED  BINARY,/*  FIELD  IDENTIFIES  */ 
FIXED  BINARY,/*  DESIRED  ARRAY  LCHER 

LIMIT  */ 

FIXED  BINARY,/*  DESIRED  ARRAY  UPPER 

LIMIT  */ 

(*)  BIT  (2)  ,/*ARRAY  DATA  FIELD   */ 
FIXED  BINARY   /*  ERROR  PRAMETER  */) , 

DATARYS  ENTRY  /*  FIXED  BINARY  (15)  ARRAY  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUMBER*/ 
BIT  M)  .  /*  3PUT  OR  3GE1  */ 
FIXED  BINARY,/*  FIELD  IDENTIFIER  */ 
FIXED  BINARY,/*  DESIRED  ARRAY  LCHER 

LIMIT  */ 

FIXED  BINARY,/*  DESIRED  ARRAY  UPPER 

LIMIT  */ 

(*)  FIXED  BINARY,/*  ARRM  DATA  FIELD*/ 
FIXED  BINARY   /*  ERRCB  PRAMETER  */) , 

EATARYL  ENTRY  /*  FIXED  BINARY  (31)  ARRAY  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUfBER*/ 
BIT  (1)  ,  /*  SPUT  OR  3GET  */ 
FIXED  BINARY./*  FIELD  IDENTIFIER  */ 
(*)  FIXED  BINARY  (31)  ,/*  DATA  FIELD   */ 
FIXED  BINARY   /*  ERROR  PRAMETER  */) , 

DATEIT1  ENTRY  /*  BIT(1)  DATA  */ 

(FIXED  BINARY,/*  PINAME  =  PCB  NUMBER*/ 
BITM),  /*  3PUT.  OR  a)GET  */ 
FIXED  BINARY,/*  FIELD  IDENTIFIER  */ 
BUM),  /*  DATA  FIELD   */ 
FIXED  BINARY   /*  ERROR  PRAMETEB  */) ) I 
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DECLARE  ECB_IIM  FIXED  BINARY  (35)  EXTERNAL; 

DECLARE  ( 

3B0RMNR, 
3ERMVEC, 
3CHILD, 
3CYCLE, 
3FSTAT, 
3FWCNTR, 
3LFISIB, 
3MSGPTR, 
3NR  PGS, 
aPAUENT, 
aPE  NR, 
aPRTRTY, 
3QUANTM, 
3RESVEC, 
3RG1SIB, 
3S TATE, 
3STATUS, 
aSYSPRO, 
aXNAME 
)  FIXED  BINARY  (15)  EXTERNAL; 

DECLARE  ( 

2GET, 
aPUI 
)  EIT(1)  EXTERNAL; 

BECLkRE(    /*    PROCESS  STATUS  IDENTIFIERS   */ 

aSBLKDR,   /*   WAITING  FOR  A  RESOURCE   */ 
33BLKDT,   /*   BLOCKED  AWAITING  TIMER   */ 
3SREDYA,   /*  WAITING  FOE  A  PROCESSOR   */ 
33RUN,     /*   RUNNING   */ 
easuspo   /*'  SUSPENDED   */ 
)  CHARACTER  (8)  EXTERNAL; 


DECLARATIONS  FOE  IDENTIFIERS  USED  AS  INTERFACE  VARIABLES 
WITH  RCB  HANDLER. 

INCLUDED  BY   %INCLUDE  RC3DCL;  */ 

DECLARE  EEIMIIIVE_RCBDATA  GENERIC 

(RCB  CHARDAT  ENTRY  /*  PUT  OR  GET  CHARACTER  DATA   */ 
"(FIXED  BINARY,  /*  RCB  NUMBER  =  RESOURCE  INTERNAL 

NAME  */ 

BIT(1),  /*  #PUT  OR  #GET   */ 
FIXED  BINARY,  /*   FIELD  IDENTIFIER  */ 
CHAR  (8),  /*  DATA  ARGUMENT  */ 
FIXED  BINARY  /*  ERROR  ARGUMENT  */  ) , 

RCB  FIXBDAT  ENTRY  /*PUT  OR  GET  FIXED  BINARY  DATA  */ 
"7FIXED  BINARY,  /*  RCB  NUMBER  =  RESOURCE  INTERNAL 

NAME  V 

BIT(1),  /*  #PUT  OR  #GET   */ 
FIXED  BINARY,  /*   FIELD  IDENTIFIER  */ 
FIXED  BINARY,  /*  DATA  ARGUMENT  */ 
FIXED  BINARY  /*  ERROR  ARGUMENT  */  ) , 

RCB  BITDATA  ENTRY  /*  PUT  OR  GET  BITM)  DATA   */ 

"(FIXED  BINARY,  /*  RCB  NUMBER  =  RESOURCE  INTERNAL 

NAME  */ 

BITM),  /*  #PUT  OR  #GET   */ 
FIXED  BINARY,  /*   FIELD  IDENTIEIER  */ 
BIT(1),  /*  DATA  ARGUMENT  */ 
FIXED  BINARY  /*  ERROR  ARGUMENT  */  ) ) ; 
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DECLARE (  /*  FIELD  IDENTIFIERS  ASSOCIATED  WITH 
PRIMITIVE_RCBDATA   */ 

/***FIELD       |  ASSOCIATED  VALUES  PASSED  OR  RETURNED 

IDENTIFIER  |  IN  THE  DATA  ARGUMENT  */ 


#ASSGND, 

/* 

VALID  R 

#CNT  SZ, 

/* 

COUNTER 

#CRATRt 
#DINAME, 

/* 

PINAME 

/* 

DEVICE 

#DS1AT, 

/* 

DEVICE 

#L  QUE, 

/* 

RETURNS 

iOTlLE, 

/* 

OPEN  FI 
##READ, 
FOR  tf#T 
FIXED  B 

#OWNER, 

/* 

PI NAME 

tPCINAM, 

/* 

EXTERNA 

#R  QUE. 
*SlOR_P, 

/* 

RETURNS 

/* 

SHARED 

) 


#TFILE,  /* 
#XNAHE  /* 
FIXED  BINARY 


FILE  TY 
RES.  EX 
EXTERNA 

*/ 


CB  NUMBER  CHE 

OR  SIZE  -  FI 
OF  CREATOR  - 
INAME  (FILE  L 
STATUS  ##GO  0 

EMPTY  OR  NOT 
LE  STATUS  -  # 

OR  ##WRITE: 
2MPF,  ##PERMF 
INARY 

OF  OWNER   - 
L  NAME  OR  PAC 
-  FILE  LOCATI 

EMPTY  OR  NOT 
OR  PRIVATE  ## 

PE  -  #TEMPF  0 
TERNaL  NAME  - 

L; 


CK  */ 

XED  BINA 
FIXED  BI 
OCATION) 
R  ##HOLD 
EMPTY  - 
#NOAVL,# 
DEVICE  A 
,  CR  #TO 

FIXED  BI 
K,  CELL 
ON  -  CHA 

EMETY  - 
SHRD  OR 

-  BIT 
R  ##PEEM 

CHAR  (8) 


RY       */ 

NARY    */ 
-  F.B.  */ 
-BUM)  */ 
BITCl)  */ 

#AVAIL, 
VAILA3L2 
RPF  FILES 

*/ 
NARY    */ 
OR  TAPE 

R<8L  . 
BIT  (1) 

##PRIV 


*/ 

*/ 


i1> 


F.B 


*/ 
*/ 

V 


DECLARE  (  /*  RCB  TYPES 
#DEVICE, 
*FIIE, 
#PCT, 
#SEMFOfl 
FIXED  BINARY  EXTERNAL; 


) 

DECLARE ( 


/*  OPERATIONS 
#FNDOP1, 
UFNDOP2, 
#FNEOP3, 
AFND0P4, 
#FNCOP5 
)  FIXED  BINARY  EXTERNAL; 


FOR  3CB_FIND   */ 


DECLARE (  /*  STATU 

A 
##AVAIL, 
##NCAVLf 
##PERMF, 
##PRIV, 
##R£AD, 
##READA/ 


##SHRD, 

SiflEHPF, 

##TGRPF, 

##WRITE, 

##WRITA, 

*#WEITH, 

##«RITS 

FIXED  BI 


S  IDENTIFICA 
ND  FILE  USE 


) 

DECLARE  ( 


/* 
/* 
/* 

/! 
/* 

/* 


'1 
/* 

/* 

/? 
/* 

/* 

/* 

NARY 


FILE  I 

FILE  I 

PERMAN 

PRIVAT 

READ  OP 

READ  - 

PROCESS' 

/*  READ  SA 

SHARED 

TEMPORA 

TEMPORA 

WRITE  0 

wRITE 

WRITE 

WRITE  S 

EXTERNA 


TION 
STAT 
S  NO 
S  NO 
ENT 
E  FI 
ERAT 
ANSW 

FIL 
CRIf 

FIL 
RY  F 
RY  0 
PERA 
ANSW 
HOLD 
ACRI 

L; 


FOR  QUEU 
US  IDENTI 
T  CURRENT 
T  CURRENT 
FILE   */ 
LE   */ 
ION  */ 
ER  REQUIR 
ES  HAVE  B 
ICE  -  i*0 
E   */ 
ILE  */ 
R  PERMANE 
TION  */ 
ER  REQUIR 

-  AWAITI 
FICE  -  NO 


ED  FILE  OPERATIONS 
FIERS  */ 

LY  OPEN  */ 

LI    ACTIVE        */ 


ED  -  STATUS  => 
EEN  SACRIFICED 
ANSWER  REQ'D. 


NT  FILE   */ 


*/ 
*/ 


ED  -  SACRIFICED  */ 

NG  PERMISSION    */ 

ANSWER  REQ'E.   */ 


/*  STATUS  OF  PROCESS  W.R.T.  FILE  OPERATIONS 
##READR,  /*  ONLY  READING  FROM  SHARED  FILES 
##SACR,    /*  SACRIFICED 

##KRITR    /*  WRITING  INTO  SHARED  FILES  -  NOT 
SACRIFICED 
)  FIXED  BINARY  EXTERNAL; 


*/ 
*/ 

*/ 

*/ 
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DECLARE  (  /*   BEADY  ACTIVE  QUEUE  IDENTIFIERS   */ 
*REDYA 
) FIXED  £INARY(15)  EXTERNAL, 
(#0S, 
#USER 
)  EIT(1)  EXTERNAL; 

DECLABE(  /*  BESOUECE  VECTOR  STATUS  VARIABLES      */ 
##ACCES,   /*   ACCESS  ALLOWED     */ 

##ACQRD,   /*   PBOCESS  HAS  ACQUIRED  THIS  DEVICE  */ 
##NOACC,   /*   ACCESS  NOT  ALLOWED   */ 
##SACRF   /*  PROCESS  HAS  BEEN  SACRIFICED   W.R.I. 

THIS  DEVICE  -  BUST  REASSIGN        */ 
)  EIT{2)  EXTERNAL; 

DECLARE  (  /*  QUEUE  STATUS,  QUEUE  IDENTIFIER  AND  DEVICE 

STATUS  VARIABLES  */ 

MCLOSE, 
##GO, 
##HCLD, 
##OFEN, 

#GET, 

#PU1, 

#LEFT, 
#BIGHT 
)  BI1(1)  EXTEENAL; 

DECLABE  ( 

DEV  L  LIMIT, 
DEV~lf~LIMIT, 
JILT  X  LIMIT, 
FILE~U^LIMII, 
PCT  X  LIMIT. 
PCT_U~LIMITi 
SEM~ LIMIT, 
SEM~L  LIMIT 
)  FIXTD~BINA3Y  EXTERNAL; 

DECLARATION  AND  PROCEDURE  CALL  NECESSARY  TO  OBTAIN  A 
MESSAGE  EUFFER   AND  KNOWLEDGE  OF  A  PROCESS'  OWN 
INTERNA!  NAME. 

INCLUDED  EY   ^INCLUDE  RRMSG;  */ 

DECLARE  KYNAME  FIXED  BINARY  (15)  STATIC  INIT  (0)  ; 

CALL  PRIMITIVE_PCBDATA  (MYNAMJ  ,  SGET,S)MSGPTR  ,  MESSAGE,  ERRdR)  ; 

DECLARATIONS  FOR  IDENTIFIERS  USED  AS  INTERFACE  VARIABLES 
BY  OPERATING  SYSTEM  PRIMITIVES  AND  PROCESSES. 

INCLUDED  BY   ^INCLUDE  OSDCL;  */ 

DCL  CURRENT_EROCESS(4)  FIXED  BINARY  EXTERNAL; 

DECLARE  ( 

ALL  INT, 
NUMXINT, 
NUMBCPU, 
PROCESSOR, 
SYS  EEOCESSOR 
)  FIXTE  BINARY  EXTERNAL; 

DECLARE  SAVEINTS  (16)  BIT(1)  STATIC; 
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^,*    ***************************** 

DECLARATIONS  FOR  PROCESSOR  REGISTERS,  FOR  SIMULATION. 
INCLUDED  EY   SINCLUDE  REG5ISS;  */ 

DECLARE  CPUREGS{4,10)  FIXED  BINARY  (31)  EXTERNAL; 

y*  ***************************** 

DECLARATIONS  FOR  AN  ARRAY  TO  SIMULATE  ENAELING  AN 
INTERRUPT. 

INCLUDED  EY   ^INCLUDE  INTACTV;  */ 

DECLARE  INTRUPT(16)  BIT(1)  EXTERNAL; 

y*  ***************************** 

DECLARATION,  FOR  SIMULATION  PURPOSES,  OF  THE  INTERRUPT 
LOCATIONS. 

INCLUDED  BY   %INCIUDE  INTSET;  */ 

DECLARE  IN1RSET(16)  BIT  (1)  EXTERNAL; 
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MODULE  SPECIFICATION 

NAM I:   EBBOB  HANDLER  TYPE:   PROCESS 

PARAMETERS 

INPUT      OUTPUT     TYPE       CONTENTS 


Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  10  OTHER  MODULES 
NAMF       PARAMETERS  PURPOSE 


Beguest    Process  I-Name,  a)  $Error  -  Semaphore  used  to 

Semaphore,  '  identify  messages  for  this 
Message  Pointer,        process. 

Error  Parameter  b)  »Obuff  -  Semaphore  used  to 

obtain  an  output  buffer. 

Release    Process  I-Name,  a)  $Opr_I0  -  Semaphore  used  to 
Semaphore,  pass  a  message  via  the  Cp- 

Message  Pointer,       erator  System  Communicator 
Error  Parameter        to  the  Computer  Operator. 

PCBData    Process  I-Name,  Generic  entry  point  to  process 

Put/Get  Identifxer,  Control  BIock  module  used  to 

Field  Identifier,  enter  or  obtain  data. 
Data  Parameter, 
Error  Parameter 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
MM. PURPOSE 

Not  applicable  for  processes. 


DAT3  STRUCTURES  USED 

NAME FIELD TYPE PURPOSE/ VALUES ; 

Message    Based     Dynamically  allocated,  pointer 

Buffer  gualified  structure  used  for 

passing  messages. 

Releasor   Integer    Internal  name  of  process 

releasing  a  message. 

Answer-    Bit(1)     Boolean  indicating  if  answer 
Reguest  reguired. 

Message-   Integer    Semaphore  to  be  used  in  the 
Semaphore  answer. 

Buffer-    Pointer    Qualified  I/O  buffer  contain- 
Location  ing  message  to/from  operator. 

Fieldl     Integer    Internal  name  of  process  which 

caused  the  error. 

Field2     Integer    The  error  condition  code. 

Field3-6   Integer    Not  used. 

Char-      Char  (8)    Not  used. 
Field1-4 
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MODULE  DESCRIPTION 


Net  inplemented  -  Dummy  module  used  to  accept  error  messages 
and  to  pass  a  decoded  message  to  the  computer  operator. 
Actual  inplementation  is  dependent  on  the  hardware  and  the 
detection  or  correction  techniques  employed. 
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MODULE  IMPLEMENTATION 


^INCLUDE  NAMCHGB; 


/*****    ERROR  HANDLER   *****/ 


(CHICK  (ERROR))  : 

ERROR_HANELEJ:  PROC  OPTIONS (MAIN)  ; 

^INCLUDE  SIHULTR; 

SIM_START  (FROCESS_ERROR_HANDLER) 

XINCLDDE  GENCEC; 

5SINCLUDE  PCEICL; 

^INCLUDE  CASESTM; 

S5INCLUDE  EEQRELD; 

ON  CHECK  (ERROR) 
BEGIN; 

IE  (EEROR  --=  0)  THEN  DO: 

/*  NON  RECOVERABLE  CONDITION:  ERROR  DETECTED 
IN  ERROR  HANDLER  */ 

STOP; 

END; 
END; 

XINCLUDE  RRMSG; 


DCL  ERROR  EIXED  BINARY  INIT (0) ; 

DCL  HAREWARE  ERROR  BIT(1)  ; 
DCL  (EINAME,ER"RCOD)  FIXED  BINARY  STATIC; 
DCL  (PNAME.aNAME)  CHAR (8)  STATIC; 
DCL  INDX  FTXET 
DCL  CBPTE  POII 


,KtlK.Ui))       irXAJilJ     J3X1N 

iAME)  CHAR  (8)  STA 
2D  BINARY  (15,0)  ; 
INTER  STATIC; 


DCL  ECE_£SR  CODES 
IKIITALf 


(101  :  120)  CHAR  (40)  STATIC 


INVALID 

SYSTEM  C 

INVALID 

ATTEKPTE 

ACCESSED 

READ/WRI 

RESTRICT 

UNIDENTI 

UNAUTHOR 

INVALID 

UNIDENTI 

UNATHORI 

DEVICE  I 

PERM AN EN 

INSUFFIC 

WRITE  OP 

UNAUTHOR 

RESOURCE 

ATTEMPTE 
i 


RGB  TYPE 
ONDITION 
RESOURCE 
D  ACCESS 

EMPTY  Q 
TE  OPERA 
ED  ACCES 
FIED  OPE 
IZED  ACC 
FILE  OPE 
FIED  RES 
ZED  WRIT 
N  HOLD  S 
T  FILE  C 
IENT  SPA 
ERATION 
IZED  RES 

ACCESSE 
D  TO  MOD 


SPECIFI 
ALL  RC 
INTERNA 
TO  AN  U 
UEUE  OR 
TION  ON 
S:  WRITE 
RATION  I 
ESS  TO  A 
RATION  S 
OURCE  EX 
E  ACCESS 
IATUS:  F 
REATION 
CE  FOR  P 
TO  FILE 
OURCE  DE 
D  HAS  BE 
IFY  RC3 


ED  IN  CR 
B  SPACE 
L  NAME  S 
NALLOCAT 
UNOPENED 
AH  UNOPE 

INTO  QU 
N  RCB  IT 

RESOTlRC 
PECIFIED 
TEENAL    N 

TO  SHAR 
HE  UNAC 
UNAUTHOR 
ERMANENT 
IN  READ 
SlfiOY  AT 
EN  DESTR 
ASSIGNED 


EATE 
IN  U 
PECI 
ED  fi 
FTL 
NED 
E-HE 
NE«  , 
R  • 
•  / 

A  ME1 
ED  F 
CESS 
IZED 

FIL 
STAT 
TEMP 
OYLD 

EIE 


RCB* 

IIED» 
CB', 

£\ 

FILE' 


ILE' 

IBLE' 

US1. 
TED1  , 

IDS 


) 


DCL 


ECE  ERR  CODES 
INITIAL"? 


(201  :  206)  CHAR  (40)  STATIC 


•INVALID  PROCESS  INTERNAL  NAME  SPECIFIED*, 
•ATTEMPTED  ACCESS  TO  UNALLOCATED  PCB', 
•INVALID  PCB  FIELD  REFERENCE  SPECIFIED'. 
'INVALID  OPERATION  ON  PCB  EIELD  ATTEMPTED ' 
•SPACE  NOT  AVAILABLE  FOR  A  NEW  PCB« 
'PROCESS  NOT  FOUND  WITH  SPECIFIED  NAME' 
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DCL  PROCESS  ERE  CODES  (301  :  310)  CHAR  (40)  STATIC 
INITIAL"? 

'INVALID  OP  SYS  COMM  ACTION  IDENTIEIEE', 
i         <   —    ~ 

••UNIDENTIFIED  RESOURCE  X  NAKE  IN  MSG  EUFF* 
•UNIDENTIFIED  MESSAGE  TO~INPUT  CONTRUILEH', 
•INVALID  ACTION  IDENTIFIER  TO  OUTPUT  CONT', 
•INVALID  ACTION  IDENTIFIES  TO  OUTPUT  CONT', 
•INVALID  SEMAPHORE  PASSED  TO  REL/REQ  PRIM1, 

•UNAUTHORIZED  USE  OF  MESSAGE  SEMAPHORE1. 
i        i 
i         f 


) ; 


DC  ECBEVER; 


CALL  PRIMITIVE  REQUEST  (ANYPRCC,$OBUFF, MESSAGE,  EEROE)  ; 
OEPTE  =  EUFFERILOCATION; 


SIH_IN1ERRUPT_PT 

CALL  PRIMITIVE  REQUEST  (ANYPROC, $ERROE, MESSAGE „ 

ERROR) ; 

SIM_IN1ERRUPT_PT 

CALL  ERROR  INTERPRETER; 

IF  HARDWARE  ERROR  THEN  CALL  HDWB  ERR  HNDLR; 
ELSE  CALL"  SOFTWARE  ERR  HNDLR;- 
END; 

SIM_ENC 

ERRCE_INTERPRETER:  PROC; 

/*  IDENTIFICATION  OF  THE  ERROR  TYPE  AND  CAUSE 

IS  DETERMINED  IN  THIS  SUBROUTINE;  I.E..  IAELE 
LOOKUP.  */ 

HAREKARE  ERROR  =  FALSE; 

EETURN;  ~ 
END  ERROR_INTERPRETER; 

HDWE_EER  HNDLR:  PROC; 

/*  EXTERMINATION  OF  RECOVERABLE/NON-RECOVERABIE 
AND  THE  APPROPRIATE  ACTION  INCLUDING  A  MESSAGE 
TO  THE  OPERATOR,  IF  NECESSARY,  IS  ACCOMPLISHED 

*/ 
RETURN; 
END  HDWE_ERR_HNDLR; 
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SOFTWABF_ERR_HNDLR:  PSOC; 

/*  APPROPRIATE  ACTION  TO  CORRECT  THE  ERROR  OR 
PREVENT  FURTHER  ERROR  IS  TAKEN.  FOR  EXAMPLE,  A 
USEE  PROCESS  ATTEMPTING  TO  WRITE  INTO  A  RESTRICTED 
FILE  BIGHT  BE    TERMINATED.        ***/ 


/***  IDENTIFY  PROCESS  AND  ERROR  CODE 
IF  (FIELD1  =  0)  THEN  PINAME  =  RELEASOR; 
ELSE  PINAME  =FIELD1; 
FBRCCD  =  FIELD2; 


** 


V 


SPTR; 


/***    SET    UP    MESSAGE    FOR    THE    OPERATOR    ***/ 
CALL    PRIMITIVE    PCBDATA  (PINAME  ,aGET  ,  alXNAME  ,  PNAKE, 

ERROR) 
CBUPPTR.    BUFFER    LOCATION    =    OB] 
INDX    =    ERRCOD   ,A100: 
CO    ACTION    OF      CASS  (INDX); 
C"SSE(1):~  /*       RESOURCE    ERROR    CODES 

CBUFPTR    ->    OUT    BUFF    =    PNAME    ||     •       'If 

RCB  ERE  CODES  (ERRCOD) 


'/ 


ENECASE; 
CASE  (2)  : 

CBUFPTR  -> 

ENECASE; 
CASE(3)  : 

OBUFPTR  -> 


/* 

OUT 


/* 

OUT 


PROCESS  ERROR  COLES   */ 
5UFF  =  PNAME  | |   ■   '  | | 

PCB_ERR_CODES  (ERECOD)  ; 

PROCESS  ERROR  CODES   */ 
BUFF  =  PNAME  | |  •  '  I | 

PROCESS  ERR  CODES  (ERECOD)  ; 


ENECASE; 
END    OF    CASES; 
MSG~~SEB~APHORE    =    $OBUFF; 
ANSWER    REQUEST   =    TRUE; 
FIEIDT=    I$PASS; 

/***    RELEASE    MESSAGE    TO    THE    OPERATOR    ***/ 
CALL    PRIMITIVE    RELEASE  (ANYPROC,  $OPR    10, MESSAGE, 

ERROR)  ; 
/*    ADD    CODE    TO    TERMINATE    PROCESS    CAUSING    THE 

ERROR,    IF    NECESSARY.  */ 

FETURN; 
SOFTWARE    ERR    HNDLR; 


END 


END 
EEROE_HANELER; 
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MODULE  SPECIFICATION 

NAME:   OEERATOR  SYSTEM  COMMUNICATOR      TYPE:   PROCESS 

PARAMETERS 

INPUT OUTPUT^. TYPE CONTENTS 

Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME JPAEAMETERS- PURPOSE 

Request    Process  I-Name,      a)  $Opr  10  -  Semaphore  used  to 
Semaphore,  identify  messages  for  this 

Message  Pointer,        process. 

Error  parameter     b)  »Obuff  -  Semaphore  used  to 

obtain  an  output  buffer. 

Release    Process  I-Name,      a)  $Output  -  Semaphore  used  to 
Semaphore,  send  messages  to  the  Output 

Message  Pointer,       Controller. 
Error  Parameter     b)  Slnput  -  Semaphore  used  to 

send  messages  to  the  Input 

Controller. 

c)  SFileop  -  Semaphore  used  to 
send  messages  to  the  File 
Manager. 

d)  $Error  -  Semaphore  used  to 
send  messages  to  the  iirror 
Handler. 

e)  $l?oit  -  General  messaqe 
class  identifier. 

f)  $Ibuff  -  Semaphore  used  to 
free  input  buffers. 

Find-      Process  X-Name,      Entry  point  to  PCB  Handler 
Piname    Process  I-Name,      used  to  obtain  the  internal 
Error  Parameter     name  of  a  process  identified 

by  external  name. 


EXTERNAL  CA1LS  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Not  applicable  for  processes. 
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DATA  STROCTUBES  USED 

NAME IIJED TYPE ^l^OSE^/VALUES 


Message 
Buffer 


Based 


Beleasor   Integer 

Answer-         Bit(1J 
Eeguest 

Message-   Integer 
Semaphore 

Buffer-    Pointer 
Location 


Fieldl 


Field2 


Integer 


Integer 


Char- 
Fieldl 

Char- 

Pield2-4 


Dynamically  allocated,  pointer 
gualified  structure  used  for 
passing  messages. 

Internal  name  cf  process 
releasing  a  message. 

Boolean  indicating  if  answer 
reguired. 

Semaphore  to  be  used  in  the 
answer. 

Qualified  I/O  buffer  contain- 
ing message  to/from  operator. 

Action  identifiers:  $$PASS  for 
messages  to  other  processes  or 
the  operator;  ^.JOPCOil  for  mes- 
sages to  this  process. 

Value  eguals  S30PRTR  then 
message  from  operator;  $$DONZ 
or  $$FAIL  indicates  task  com- 

?letion  code  for  messages  sent 
o  other  processes. 


Pield3-6      Integer         Not    used. 


Char (8)    Resource  external  naae  in 
answers  to  task  messages. 

Char (8)    Not  used. 


MODULE  DESCRIPTION 


A  simplistic  implementation  has  been  completed  to  reify  the 
concept  cf  using  a  focal  point  for  system-operator  communi- 
cations. Ihe  exact  hardware  configuration;  a  repertoire  of 
instructions;  and  a  complete  specification  of  functions  to 
be  perrormed  are  essential  for  a  complete  implementation.  At 
present,  the  process  passes  messages  ana  initiates  action 
messages  upon  receipt  of  instructions  from  the  operator. 
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MODULE  IMPLEMENTATION 


^INCLUDE  KAMCHGR 
(CHECK  (EBBOB)) : 


/*****  OPEBATOB  SYSTEM  COMMUNICATOR*/ 
OPERATOB_SYSIEM_COMMUNICATOE:  PBOC  OPTIONS  (MAIN)  ; 


UN 
S 


CLUDE    SIMULTB; 

IM^STABT  (PBGCESS_OPERATOR_SYSTEK_COMMUNICATOR) 


/*  **********************  *  *  * 

THIS  MODULE  SERVES  AS  THE  FOCAL  POINT  FOR  SYSTEM  10 
OPEEATOE  AND  OPERATOR  TO  SYSTEM  MESSAGES.   IT  INTER- 
PRETS MESSAGES  AND  DETERMINES  THE  ACTION  TO  3E  TAKEN. 
IN  PARTICULAR-  IT  ISSUES  ACTION  MESSAGES  TO  THE  INPUT 


*  * 


CONTROLLER,  AND  FILE  MANAGER  TC  ADD 

AND  ITS  ASSOCIATED  INTERFACE  PBOCESS 

MESSAGES  FROM  IhE  SYSTEM  TO  THE 

***/ 


CONTROLLER,  OUTPUT 
OR  DELETE  A  DEVICE 
AS  HELL  AS  PASSING 
OPERATOR. 

XINCLUDE  GENEEC; 

^INCLUDE  CASESTM; 

^INCLUDE  ECBECL; 

^INCLUDE  BEQRELD; 

ON  CHECK  (ERROR) 
BEGIN;  - 

IE  (ERROR  -.=  0)  THEN  DO; 
(NOCHECK  (ERROR)  )  : 
BEGIN; 

ANSWER  REQUEST  =  FALSE; 
MSG  SEMAPHORE  =  0; 
FIEID1  =  RELEASOR; 
FIELD2  -  ERROR; 
MSG  SEMAPHORE  =  0; 

CALX  PRIMITIVE  RELEASE (ANYPBOC,$BRROB, 

MESSAGE, ERROR)  ; 
ERROR  =  0; 
END; 
GO  TO  START; 

END; 
END; 

^INCLUDE  EEMSG; 

BCL  ERROR  FIXED  BINARY  STATIC  INIT  (0)  ; 
DCL  EUEEER  USED  BIT(1)  STATIC  INIT('I'E); 
DCL  EUEFER^POINIER  POINTER  STATIC; 

CALL  COMMUNICATIONS  INITIALIZER; 

START: 
DC  FOREVER; 

IF  BUFFER  USED  THEN  DO; 

CALL  PRIMITIVE_REQUEST  (ANYFROC , $OBUFF, MESSAGE, ERROR)  ; 

SIM_INIERRUPT_PT 

EUJFEE_USED  =  FALSE; 
EUEFEL  POINTER  =  BUFFER  LOCATION; 
END; 

CALL  PRIMITIVE_REQUEST (ANYPR CC , $OPR_IO , MESSAGE , ERRCR)  ; 

SIM  INIERRUPT  PT 
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CALL  MESSAGE  INTERPRETER; 
DO_ACTION_OF~CASE  (I)  ; 

CASE  ( 1)  z 

/*  PASS  MESSAGE  TO  OPERATOR  */ 
FIELD4  =  RELEASOR; 

CALL  PRIMITIVE  RELEASE (ANYPROC, $OUTPUT, MESSAGE, 

ERROR)  ; 
ENICASE; 


CASE  (2) 


/*  MESSAGE  FROM  OPERATOR  OR  SYSTEM   */ 


DCL  (START!  PT,HSG  LEN, PINAME)  EIXEE  BINARY  (15,0); 
DCL  MSG  COI5E  CHAR74)  STATIC; 
DCL  (MSS  ITEM1,MSG  ITEM2)  CHAR  (8)  STATIC; 
ECL  PCODE  CHARM)  STATIC; 

DCL  MSG  SEM  FIXED  BINARY  STATIC  INITIAL  (0) ; 
ECL  SYS~MSG  CHAR (40): 

ECL  ACTION  FIXED  BINARY  STATIC  INITIAL  (0); 
IF  (FIELD2  =  $$OPRTR)  THEN  DO;  /*  MSG  EROM  OPERATOR  */ 
/**#  INTERPRET  MESSAGE  IN  INPUT  BUFFER   ***/ 
START  PT  =  3; 
MSG  L"EN   =  4  • 

IEUTPTR  =  BUFFER  LOCATION; 
MSG  CODE  =  SUBSTK(IBUFPTR  ->  IN  BUFE, 

START  PT,MSG  IEN)  ; 
START  PT  =  7; 
MSG  LEN  =  8; 
MSG"ITEM1  =  SUBSTR (IBUFPTR  ->  IN  BUFF, 

—  START  PT  MSG  TEN)  * 

IF  (MSG  CODE  =  'ADD  ')  TEEN'aCTION  ='$$ADD; 

ELSE~~IF  (MSG  CODE  =  'DEL  •)  THEN  ACTION=$$EELET ; 
ELSE  DOT   /*  MESSAGE  TO  SYSTEM  PROCESS  */i 
CALL  FIND  PINAME  (MSG  IIEM1 , PINAME, 

ZRRO"R)  ; 
FIELD  1  =  $$OPCOM: 
CALL  PRIMITIVE  RELEASE  (PINAME ,$WAIT, 

MESSAGE, EEROR)  ; 
END; 
IF  (ACTION  -•=  0)  THEN  DO; 

/**#  IDENTIFY  RESOURCE  TYPE  ***/ 

START  PT  =  1 ; 

MSG  LEN  =  1; 

PCOUE  =  SUBSTR (MSG  ITEM1, START  ET,MSG  LEN) ; 

IF  (PCODE  =  « I')  THEN  MSG  SEM  =  $INPUT; 

ELSE  IF  (PCODE  =  '0»1  THEN  MSG  SEM  =  $OUTPUT; 
ELSE  IF  (PCODE=*F«)  THEN  130; 

STAUT  PT  =  15;      MSG  LEN  =  8; 
MSG  ITEM2=SUBSTR (IBUFPTR  -> 

IN  BUFF, START  PI, MSG  LEN); 
MSG  SEM  =  STlLEOP; 

END; 
ELSE  DO;  /*  UNIDENTIFIED  RESOURCE 
EXTERNAL  NAME.        */ 
CALL  PRIMITIVE  RELEASE  (REIEASOR , $IEUFF, 

MESSAGE,  ERROR)  ; 
BUFFER  LOCATION, OBUFPTR  =  EUFFER  POINTER; 
OBUFPTS  ->  OUT  BUFF  =  MSG  CODE  |T 

MSG  ITEM1  I |_,INVALID  RESOURCE  NAME1; 
FIELD!  =  $$OPCOM; 
FIELD2  =  $*PASS; 
ANSVJER  REQUEST  =  FALSE; 
MSG  SEMAPHORE  =  0; 

FIEID3,FIELD4,FIELD5,FIELD6  =  0; 
CHAR  PIELD1.CHAB  FIELD2,CHAR  FIELD3, 

"CHAR  FIELD4-=  '•; 
CALL  PRIMITIVE  RELEASE  (ANYPP.GC,  $0UTPU1, 

MESSAGE, ERROB)  ; 
BUFFER  USED  =  TRUE; 
END; 
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IF  ((ACTION  ->=    0)  &     (MSG  SEM  ->=  0))  THEN  DO; 

/***  SEND  TASK  MESSAGE  TO  PROCESS  CONCERNED  ***/ 
ANSWER  REQUEST  =  TRUE; 
MSG  SEMAPHORE  =  $OPR  10; 
PIEXD1  =  $$OPCOii; 
FIELD2  =  ACTION; 
CHAR  FIELD1  =  MSG  ITEM1; 

IF  ("PCODE  =  'f'l  THEN  CHAR  FIELD2  =  MSG  ITEM2; 
CALL  PRIMITIVE  RELEASE  (ANYTROC, MSG  SEM , MESSAGE, 

ERROR) ; 

END; 
END; 
END: 
ELSE  DC;      /*  MESSAGE  ANSWER  FROM  SYSTEM  PROCESS  */ 
/***  RELEASE  MESSAGE  TO  THE  OPERATOR  ***/ 
ACTION  =  FIELD2; 
IF  (ACTION  =  .$SDONE)  THEN 

SYS  MSG  =  'ACTION  COMPLETED  FOR1; 
ELSE  SY5~MSG  =  'UNABLE  TO  PERFORM  ACTION  ON'; 
BUFFER  LOCATION, 03UFPTR  =  3UFFER  POINTER; 
OBUFPTS  ->  OUT  BUFF  =  SYS  MSG  l|~ 

CHAR  FXELD1  | |  CHlR  FIELE2; 
FIELD  1  =  SSOPCOH; 
FIELD2  =  SSPASS; 
ANSWER  REQUEST  =  FALSE; 
MSG  SEMAPHORE  =0; 
fIEXD3,FIELD4,FIELD5,FIELD6  =  0; 
CHAR  ?IELD1,CHAR  FIELB2,CHAR  FIELD3, 

CHAR  FIELD4  =  '  '  ; 
CALL  PRIMITIVE  RELEASE  (ANYPROC, $OUTPUT, MESS AGE, 

ERROR)  ; 
EUFFER  USED  =  TRUE; 
END;   "" 
iiNECASE; 

END_CF_CASES; 
END; 
SIM_ENE 

MESSAGE_INTERPRETER:  PROC; 

/*  INTERPRET  MESSAGE  TO  DETERMINE  REQUIRED  ACTION  AND 
SET  THE  CASE  STATEMENT  INDEX         ***/ 

IF  (FIELD1  =  3$PASS)  THEN  1=1; 

ELSE  IF  (FIELD1  =  $$OPCOM)  THEN  1=2; 
ELSE  ERROR  =  301  ; 
END  MESSAGE_IUTERPRETER; 

COMMUHICATIOHS_INITIALIZER:  PROC; 

/*  ISSUE  REQUESTS  AND  RELEASES  TO  INITIALIZE  THE 

SYSTEM  INPUT  /  OUTPUT  CONFIGURATION  */ 

END  COMMUNICAIIONS_INITIALIZER; 

END  OPEEA10R_SYSTEM_COMMUNICATOR; 
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MODULE  SPECIFICATION 


NAME:   INPUT  CONTROLLED 


TYPE:   PROCESS 


PARAMETERS 

INPUT OUTPUT 1IPE CONTENTS , r_ 

Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL 
NAME 

Request 


Release 


CALLS  MADE  TO  OTHER 

PARAMETERS 


Device 
Directory 


PCBData 


PCBEata 


RCBData 


MODULES 
PURPOSE 


Process  I-Name, 
Semaphore, 
Message  Pointer, 
Error  Parameter 

Process  I-Name, 
Semaphore, 
Message  Pointer, 
Error  Parameter 


Resource  X-Name, 
Access  Identifier, 
Process  X-Name, 
Page  Table  Length, 
Page  Table  Vector, 
Priority . 
Interrupt  Number, 
Located- Boolean 


a)  $Input  -  Semaphore  used  to 
identify  messages  for  this 
process. 

a)  $Error  -  Semaphore  used  to 
send  a  message  to  Error 
Handler. 

b)  Slntdev  -  Semaphore  used  to 
send  a  message  to  a  newly 
created  interface  process 
to  identify  a  device  inter- 
nal name. 

c)  $Ibuff  -  Semaphore  used  to 
release  input  buffers  to  an 
interface  process. 

d)  $Opr_IO  -  Semaphore  used  to 
send  a  message  to  Operator 
System  Communicator  when 
passing  messages  from  the 
operator  or  replying  to  a 
message  from  Op-sys-Ccmm. 

This  module  is  invoked  tc  get 
data  which  identifies  a  device 
interface  orocess  and  v.'hich  is 
required  to  create  a  PCB  and 
an  RCB  for  the  interface  pro- 
cess and  device,  respectively. 


Process  I-Name,      Generic  entry  point  to  PCB 
Put/Get  Identifier,  structures  module  to  enter  or 
Field  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 


Process  I-Name, 
Put/Get  Identifier, 
Field  Identifier, 
Vector  Lower  Limit, 
Vector  Upper  Limit 
Vector  Parameter, 
Error  Parameter 

Resource  I-Name, 


Generic  entry  point  to  PCB 
Structures  module  to  enter  or 
obtain  data  or  portions  cf  the 
data  stored  as  a  vector  (i.e., 
Resource  Access  Vector,  Page 
Table  Vector,  etc.). 


Put 
F 


ut/Get  Identifier, 
ield  Identifier, 
Data  Parameter, 
Error  Parameter 


Generic  entry  point 
Handler  module  to 
data  concerning  a 


to  RCB 
enter  cr  get 
resource. 
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RCBPUTQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

Lett/Right    Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  on  a  specified 

Data  Parameter,  resource  queue  by  priority. 

Priority,  Queues  used  by  this  process 

Message  Pointer,  are  the  message  semaphore  and 

Data  parameter,  the  Ready  Active  queues. 
Error  Parameter 

Find      Resource  Type,  Entry  point  to  RCB  Handler 

I-Name     Resourse  X-Nanie,  used  to  get  the  internal  name 

Resource  I-Name,  for  the  resource  specified  by 

Error  Parameter  type  (file,  device,  etc.)  ana 

external  name. 

Interrupt  Interrupt  Number,  This  module  is  invoked  tc  en- 

Enabler   Interrupt  Save-  able  a  specific  interrupt  or 

Vector  enable  all  interrupts  disabled 

by  this  process. 

Interrupt  Interrupt  Number,  This  module  is  invoked  tc  dis- 

Disabler   Interrupt  Save-  able  a  specific  or 

Vector  all  interrupts  and  saving  the 

status  of  the  interrupts  in 
a  save-vector  for  enabling. 

Create    Resource  Type,  Entry  point  to  RCB  Handler 

RCB       Resource  X-Name,  used  to  create  an  RCB  of  the 

Resource  Owner.  type  specified;  enter  descrip- 

Sz-Cntr  Parameter,  tor  data  in  the  appropriate 

Access  identifier,  RCB  fields;  and  return  the 

PCI  Name,  resource  internal  name.  Not 

Dev/Int  Identifier,  all  fields  are  used  by  each 

File  Descriptor,  type  of  resource. 
File  Descriptor, 
Resource  I-Name, 
Error  Parameter 

GETPCB     Earent  I-Name,  Entry  point  to  PCB  Structures 

Rgt-Sib  I-Name,  used  to  create  a  PCE  for  a 

Process  X-Name,  process;  enter  data  in  the  PCB 

Priority,  fields;  and  return  the  process 

System  Process  ID,  internal  name. 
lait  State  Vector, 
Process  I-Name, 
Cyclic  Process  Id, 
Error  Parameter 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Not  applicable  for  processes. 
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DAIA  STRUCTURES  USED 
NAME FIELD    TYPE 


PU  R  POSE/  VALUE  S_ 


Message 
Buffer 


Based 


Releasor   Integer 

Answer-    Bit(1) 
Reguest 

Message-   Integer 
Semaphore 

Buffer-    Pointer 
Location 

Fieldl     Integer 


Field2 


Integer 


Field3-6   Integer 

Char-      Char  (8) 
Fieldl 

Char-      Char  (8) 
Field2-4 


Dynamically  allocated,  pointer 
gualified  structure  usea  for 
passing  messages. 

Internal  name  of  process 
releasing  a  message. 

Boolean  indicating  if  answer 
reguired. 

Semaphore  to  be  used  in  the 
answer. 

Qualified  I/O  buffer  contain- 
ing message  to/from  operator. 

a)  $$Opcom  -  Messae  from  Oper- 
ator System  Communicator. 
$$JCL  -  Message  frqm  inter- 
face process. 


h) 
a) 


$$ADD  -  Task  identifier  to 
create  an  interface  process 
and  device  RCB. 


Not  used. 

Identifies  external  name  of 
the  device  to  create/destroy. 

Not  used . 


MODULE  PE£CRIPTION 

Partially  implemented  process  performing  such  functions  as 
creating  a  device  and  its  associated  interface  process; 
passing  messages  from  the  operator  to  the  Operator  System 
Communicator,  etc.  Implementation  limited  until  the  hardware 
environment,  JCL   code,  etc.  are  defined. 
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MODULE  IMPLEMENTATION 

JSINCLUDE  NAMCHGR;  /*****   INPUT  CONTROLLER  *****/ 

(CHECK  (ERBOB)): 

INPUT_CCNTRCILEB:  PROC  OPTIONS (MAIN)  ; 

JJIKCLUDE  3IMULTR; 

SIM_STAET(PBOCESS_INPUT_CONTEOLLER) 

y*  *************************** 

THIS  MODULE  HAS  BEEN  IMPLEMENTED  TO  CENTRALIZE  ANE 
FACILITATE  THE  "INPUT"  OPERATIONS  FROM  VARIOUS  DEVICES. 
IT  PERFORMS  SUCH  FUNCTIONS  AS  CREATING  AND  DESTROYING 
INTERFACE  PROCESSES  AND  DEVICE  RCB'S;  ENTERING  A  JOE'S 
JCL  IN  THE  JOB  QUEUE;  RELEASING  MESSAGES  TO  THE  INI- 
TIATOR WHEN  A  JOB  IS  READY  FOR  CREATION;  AND  PASSING 
MESSAGES  TO  THE  OPERATOR  SYSTEM  COMMUNICATOR.      ***/ 

^INCLUDE  GENLEC; 
^INCLUDE  BEQEEID; 
^INCLUDE  FCBECL; 
^INCLUDE  ECEECL; 
XINCLUDE  CASESTM; 

ON  CHECK  (ERROR) 
BEGIN; 

IF  (EEROR  -1=  0)  THEN  DO; 
(NGCHECK  (ERROR)  )  : 
EEGIN; 

FIELD1  =  RELEASOR; 

FIELD2  =  ERROR; 

MSG  SEMAPHORE  =  0; 

ANSTIER  REQUEST  =  FALSE; 

CALL  PRIMITIVE  RELEASE (ANYPECC,$ERBOE, MESSAGE, 

ERROR) ; 
ERROR  =0; 
END; 
GO  TO  START; 

END; 
END; 

XINCLUDE  RRMSG; 

CCL  ERROR  FIXED  BINARY  STATIC  INIT (0)  ; 
DCL  (S  OR  P,NRPGS,PRI,PINAME,RINAME, CHILD, INTRPTNE) 
FTXEl)  BINARY; 


DCL  (PXNAME,RXNAME)  CHAR  (8)  STATIC; 


(8l 

Mir 


DCL  FOUND  BIT  (1) 
DCL  (PXNAME,RXNA 
DCL  FGTABV3C(1)  FIXED  BINARY: 
DCL  STATE  VEC  (10)  FIXED  BINARY  (31,0); 
DCL  RES  VUCfSEM  L  LIMIT  :  PCT  U  LIMIT)  BIT  (2) 
DCL  NRD1VICES  FIXED  BINARY  STlTlC  INIT(O)" 
DCL  TEMP  PIR  POINTER; 
DCL  DUMA"?  (16)  BIT  (1)  : 

DCL  11  FIXED  BINARY{15)  STATIC  INITM), 
10  FIXED  BINARY  (15)  STATIC  INIT  (0)  , 
NULP  POINTER  STATIC  ; 
NULE  =  NULL; 
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START:  DC  FOREVER; 

CALL  PBIMIIIVE_BEQUEST  (AN YPROC,$INPUT , MESSAGE, ERROR) 

SIM  IN1EBRLPT  PT 


CALL  MESSAGE 
DO  ACTION  OF 
CASE  (1)  :  7*  MESSAGE 


INTERPRETER; 
CASE  (I)  * 

"   '"   FROM  OPERATOR 

TO  ADD  AN  INPUT  DEVIC 

GET  DATA  FROM  THE  DIR 

CREATE  AN  INTERFACE  P 

RCB. 

CALL  DEVICE  DIRECTORYfCH 

PXNAME,TTRPGS,PGTABVE 

IP  (FOUND  =  TRUE)  THEN  D 

RXNAME  =  CHAR  FIE1D1; 

CALL  PRIMITIVE  PCBDAT 


-SYSTEM  COMMUNICATOR 

E 

ECTORY  REQUIRED  TO 

ROCESS  AND  DEVICE 


V 


AR    FIELD1,S    OR    P 

C,P"RI,INIRPTNR7F 

o; 


CUND)  ; 


STATE  VEC 
STATE~VEC 
/***  CREATE  PCB 
CALL 


3  FOR 


=  PGTABV 

1; 

INTERF 


GETPCB (MYNAME.Cfl 

STATE  VEC 

/***  RESET  FAMILY  LINKAGE. 

IF     (CHILD    -.=    0)     THEN 

CALL    PRIMITIVE    PCB 

~o)LF 

CALL  PRIMITIVE  PCBDAT 


A(MYNAKF,a)GET,5;CHILD, 

CHILD, ERROR) ; 
EC  <  1 )  ; 

/*  IC  REGISTER 
ACE  PROCESS    **: 
ILD,PXNAME,PRI,T] 
, PINAME, 10, ERROR] 


*/ 

■•*/ 

'RUE, 

:) ; 


/ 


/ 


***  CREATE  AN  RC 

CALL  CREATE 

S  OR  P7 

EUR 01) ; 

/*  SET  UP 

RES  VEC  =  «0 

RES~VEC(RINA 

RES"*VEC($IBU 

RES~VEC(SINP 

R£S~VEC(3SPA 

RES~VEC($ERfi 

RES~VEC($FIL 

RES~VEC(iINT 

RES~VEC(5>INT 

RES  VEC  (3) WAX 

CALX  PRIMITI 

SEM  L  I.IM 

***  INSERT~PaGE 
POINTER  IN  T 
CALL  PRIMITI 

n.  Nap 

ALLOCATE  MES 
CALL  PRIMITI 


DATA  (CHILD, SpUT, 
TSIB,PINAME,EBRO 
A(MYNAME,S)PUT,aC 
PINAME, ERROR) ; 
B  FOR  THE  DEVICE.  ***/ 
RCB  (#DEVICE, RXNAME, PINAME 
('  •)  ,INTRPTNR,lO,lO,RINA 


HILD, 


,10, 
BE, 


RESOURCE 

O'B; 

ME 


ACCESS  VECTOR  */ 


i-F 

ur 

CE 

OR 

EOP 

RPI 

DEV 


##A 
##A 
##A 
##A 
##A 
=  ## 
=  ## 
=  ## 
T)  =  ##AC 
VE  PCBDAT 
ITTPCT  U 
TABLE  VEC 
HE  PCB. 
VE  PCBDAT 
GS, PGTABV 
SAGE  BUFF 
VE  PCBDAT 


CCES ; 
CCES; 

CCES  ; 

CCES; 

ACCES; 

ACCES; 

ACCES  ; 

CES  ' 

A  (PINAME, ©PUT, 5)E 

LIMIT, RES  VEC, EH 

TOR  AND  MESSAGE 


/***  RELEASE  MESSAGE  TO  TH 
FYING  THE  DEVICE  INTE 
FIELD1  =  RINAME; 
CALL  PRIMITIV£_RELEAS 

/***  ALLOCATE  AND  RELEASE 
USED  BY  THE  NEW  PEOCE 
FIELD 1.F1ELD2, FIELDS, 
MSG  SEMAPHORE  =  0; 
ANSTJER  REQUEST  =  FALS 
CHAR  FTELD1-CHAR  FIEL 
ALLOCATE  INPUT  BUFFER 
BUFFER  LOCATION"  =  IBU 
CALL  PEIMITIVE_EELEA3 

ALLOCATE  INPUT  BUFFER 

BUFFER  LGCAIIO!  =  IBU 
CALL  PRIMITIVE  RELEAS 


A  (PINAME, a)PUT,aiB 
EC,EBBCE)  ; 
ER  SET  (TEMP  PIE) 
A  (PI NAME, a) PUT, aJM 
TEMP  PTE, ERROR 
E  NEW  T-ROCESS  ID 
RNAL  NAME. 

E(PINAM£,$INTDEV 
MESSAGE, ERROR) 
INPUT  BUFFERS  TO 
SS . 
FIELD4  =  0; 

E* 

D2  =  '  '  * 

SET   (IBUFPTR) 
FPTR; 
E  (PINAME. $IBUFF. 

MESSAGE, ERROR) 

SET   (IBUFPTR) 
FPTR; 
E  (PINAME, SIBOFF, 

MESSAGE, ERROR) 


ESVEC, 
EOE)  ; 
EUFFER 

FMVEC, 


SGPTE, 
INTI- 


BE 
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/ 


ETNR, 

,nolp. 


ENECASE 
CASE  (2) 


EHDCASE 
CASE  (3)  . 


/***  INSERT  THE  PROCESS  ON  THE  READY  ACTIV 

QUEUE  AND  ENABLE  THE  DEVICE  INTERRUPT.  *** 
NfiDEVICES  =  NRDEVICES  +  1; 
XALL  PRIMITIVE  INTERRUPT  ENABLES (INTR 

DUMM 
CALL  RCBPOTQ  (#REDYA , #OS , PINAME, 10 , PRI 

10, ERROR)  ; 
FIELD1  =  $$OPCOM; 
FIELD2  =  $$DONE; 

END; 
ELSE  DO;  FIELD2  =  $$FAIL; 

CHAR  EIELD2  =  'BAD  NAME'; 
END; 
/***  RELEASE  ACTION  TAKEN  MESSAGE  TO  OPERA 
SYSTEM  COMMUNICATOR. 
CALL  PRIMITIVE  RELEASE (ANYPRCC , $OPR  10, 

MESSAGE, ERROR) ; 

!       /*  MESSAGE  FROM  OPERATOR  SYSTEM 

COMMUNICATOR;  DELETE  A  DEVICE  */ 
CALL  FIND_INAME(#D£VICE,CHAR  FIEID1,RINAM 

ERROR)  ; 
CALL  PRIMITIVE  RCBDATA (RI NAME , #GET, #OWNEE , 

PINAME,  ERROR)  ; 
/*  DISENABLE  THE  INTERRUPT,  LOCATE  AND  FREE 
BUFFERS,  DESTROY  OUTSTANDING  FILES, 
OUTPUT  MESSAGE  TO  OPERATOR  CONCERNING 
USER  PROCESS  EFFECTED,  DESTROY  DEVICE 
RCB  AND  PROCESS  PCE,  RELEASE  ACTION 
DONE  MESSAGE  TO  OPERATOR-SYSTEM 
COMMUNICATOR.   ALL  TO  BE  IMPLEMETED       */ 


TOR 


*r 


INFORMATION  UNTIL 
JOB  IN  JOE  QUEUE 


SAVE  JCL  AND  FILE 

IF  EOF,  ENTER  NEW 

JCLCCDE  CHAR  (2)  ; 

MSG  PI  FIXED  BINARY 

MSG~LEN  FIXED  3I1IARY  INlT  (2) 
IBUFPTR~=  BUFFER  LOCATION; 
JCLCODE  =  SUBSI'RlIBUFPTR  ->  IN  BUFF, 

MSG  PT,MSG  LER)  ; 


;/* 

DCL 
DCL 
DCL 


ECF. 


V 


I  NIT  (1>; 
'  INIT  (2) 


IE 


DO; 


/*  OPCOM  MSG  */ 


(jclcode  =   «a>a')   THEN 

FIELD2  =  3SOPRTR; 
FIELD1  =  SiOPCOM; 
ANSWER  REQUEST  =  FALSE; 

CALL  PRIMITIVE  RELEASE  (AN YPRCC, iOPS  I 

MESSAGE, ERROR) 
END; 


END 


/*  ELSE    DO; 

ENDCASE; 
ENB_OF_CASES; 


SAVE  JCL 
OR  ENTER 


C, 
i 

FOR  THE  PROCESS,  FILE  INFO, 


IN  JOB  QUEUE  IF  JOB  EOF, 


*/ 


SIM  END 


MESSAGE  INTERPRETER:  PROC ; 

/*  THIS  SUBROUTINE  DETERMINES  WHO  DID  THE  RELEASE  ON 

$INPUT  AND  WHAT  ACTION  IS  REQUIRED.  */ 

IF  ((FIE1B1  =  330PCOM)  S  (FIELD2  =  $$ ADD))  THEN  1=1; 
ELSE  IF  (  (FIELD1=$30?COM)  &  (FIELD2=$$DELET)  )  THEN  1=2; 
ELSE  IE     (FIELD1  =  i$JCL)  THEtf  1=3; 


END  ilESSAGE  INTERPRETER 
END  INPUT  CONTROLLER; 


(  (FIELD1=$30PCOM)  &  (FIELD2  =  $$DE; 
E  IF  (FIELD1  =  iSJCL)  THEN  I  = 
ELSE  ERROR  =  304; 
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MODULE  SPECIFICATION 


NAME:   OUTPUT  CONTROLLER 


TYPE:   PROCESS 


PARAMETERS 

INPUT OJJTPUT TYPE CONTENTS^ 

Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  TO  OTHER 
NAME PARAMETERS 

Reguest    Process  I-Name, 
Semaphore, 
Message  Pointer, 
Error  Parameter 


Release   Process  I-Name, 
Semaphore, 
Message  Pointer, 
Error  Parameter 


Find 

Piname 


Device 
Directory 


PCBData 


PCBData 


Process  X-Name, 
Process  I-Narae, 
Error  Parameter 


Resource  X-Name, 
Access  Identifier, 
Process  X-Name, 
Page  Table  Length, 
Page  Table  Vector, 
Priority . 
Interrupt  Number, 
Located- Eo clean 

Process  I-Name, 
Put/Get  Identifier, 
Field  Identifier, 
Data  Parameter, 
Error  Parameter 

Process  I-Name, 
Put/Get  Identifier, 
Field  Identifier, 
Vector  Lower  Licit, 
Vector  Upper  Limit, 
Vector  Parameter, 
Error  Parameter 


MODULES 

^PURPOSE 

a)  $Output  -  Semaphore  used  to 
identify  messages  for  this 

PJTOC  gg2 

b)  $Obuff  -  Semaphore  used  to 
obtain  an  output  buffer. 

c)  SPrintg  -  Semaphore  used  to 
get  next  print  job. 

a)  $Error  -  Semaphore  used  to 
send  messages  to  the  Error 
Handler. 

b)  3Intdev  -  Semaphore  used  to 
send  message  to  an  inter- 
face process  to  identify  a 
device  internal  name. 

c)  $Obuff  -  Semaphore  used  to 
release  output  buffers. 

d)  $0pr_I0  -  Semaphore  used  to 
send  messages  to  Operator 
System  Communicator  in  ■ 
reply  to  $$GECOM  messages. 

e)  $Putout  -  Semaphore  used  to 
send  output  commands  to  in- 
terface processes. 

f)  $Fileop  -  Semaphore  used  to 
send  messages  to  the  Pile 
Manager  to  open,  read  or 
destroy  a  file. 

Entry  point  to  PCB  Handler 
used  to  obtain  the  internal 
name  of  a  process  identified 
by  external  name. 

This  module  is  invoked  to  get 
data  which  identifies  a  device 
interface  process  and  which  is 
required  to  create  a  PCB  and 
an  RCB  for  the  interface  pro- 
cess and  device,  respectively. 


Generic  entry  point  to  PCB 
Structures  module  to  enter  or 
obtain  data. 


Generic  entry  point  to  PCB 
Structures  module  to  enter  or 
obtain  data  or  portions  cf  the 
data  stored  as  a  vector  (i.e., 
Resource  Access  Vector,  Fage 
Table  Vector,  etc.). 
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RCBData    Resource  I-Namef 

Put/Get  Identifier, 
Field  Identifier, 
Data  Parameter, 
Error  Parameter 


RCBEUTQ 


Find 
I- Name 


Interrupt 
Enabler 


Interrupt 
Disabler 


Create 
RCB 


Resource  I-Name, 
Left/Right  Queue, 
Process  I-Name, 
Data  Parameter, 
Priority, 
Message  Pointer, 
Data  Parameter, 
Error  Parameter 

Resource  Type, 
fie  sour  s-e  X-Name, 
Resource  I-Name, 
Error  Parameter 


GETPCB 


Interrupt 
Interrupt 
Vector 


Interrupt 
Interrupt 
Vector 


Number, 
Save- 


Number, 
Save- 


fiesource  Type, 
Resource  X**Kame, 
Resource  Owner. 
Sz-Cntr  Parameter, 
Access  Identifier, 
PCI  Name, 

Dev/Int  Identifier, 
File  Descriptor, 
File  Descriptor, 
Resource  I-Name, 
Error  Parameter 

Parent  I-Name, 
Rgt-Sib  I-Name, 
Process  X-Name, 
Priority , 

System  Process  ID, 
Init  State  Vector, 
Process  I-Name, 
Cyclic  Process  Id, 
Error  Parameter 


Generic  entry  point  to  RCB 
Handler  module  to  enter  cr  get 
data  concerning  a  resource. 


Entry  point  to  RCB  Handler 
used  to  insert  a  process 
or  a  message  on  a  specified 
resource  queue  by  priority. 
Queues  use!  by  this  process 
are  the  message  semaphore  and 
the  Ready  Active  queues. 

Entry  point  to  RCB  Handler 
used  to  get  the  internal  name 
for  the  resource  specified  by 
type  (file,  device,  etc.)  and 
external  name. 

This  module  is  invoked  tc  en- 
able a  specific  interrupt  or 
enable  all  interrupts  disabled 
by  this  process. 

This  module  is  invoked  to  dis<- 
able  a  specific  or 
all  interrupts  and  saving  the 
status  of  the  interrupts  in 
a  save-vector  for  enabling. 

Entry  point  to  RCB  Handler 
used  to  create  an  RCB  of  the 
type  specified;  enter  descrip- 
tor data  in  the  appropriate 
RCB  fields;  and  return  the 
resource  internal  name.  Not 
all  fields  are  used  by  each 
type  of  resource. 


Entry  point  to  PCB  Structures 
used  to  create  a  PCB  for  a 
process;  enter  data  in  the  PCB 
fields;  and  return  tne  process 
internal  name. 


EXTERNAL  CALLS  HADE  BY  OTHER  MODULES 
BADE  PURPOSE 


Not  applicanle  for  processes. 


Dii'I A  STRUCTURES  USED 
NAME        FIELD      TYPE 


.PUSPQSE^VALUES. 


Message 
Buffer 


Based      Dynamically  allocated,  pointer 
qualified  structure  used  for 
passing  messages. 
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Releasor   Integer 

Answer-    Bit(1) 
Heguest 

Hessage-   Integer 
Semaphore 

Buffer-    Pointer 
Location 


Field! 


Field2 


Field3 

Field4 

Char- 
Fieldl 

Char^ 
Field2-4 


Integer 


Integer 


Integer 
Integer 
Char  (8) 

Char  (8) 


Internal  name  of  process 
releasing  a  message. 

Boolean  indicating  if  answer 
required. 

Semaphore  to  be  used  in  the 
answer. 

Qualifies  an  output  buffer 
used  to  store  data  read  from 
files  and  to  pass  data  for 
output  to  an  interface 
process. 

a)  SSOPCOM  -  identifies  a 
message  from  the  Operator 
System  Communicator. 

b)  $-$TERM  -  identifies  a  mes- 
sage from  the  Terminator  to 
print  a  job. 

C)  S$READ,  i#EOF  or  $$OPENF  - 
identifies  message-type 
answer  from  File  Manager. 

a)  $$PASS  -  pass  message  to 
the  system  operator. 

b)  $$ADD,  $$DELE?  or  S$STOP  - 
identifies  task  specified 
by  the  Operator  System 
Communicator. 

c)  File  internal  name  to  be 
printed. 

File  record  to  be  printed. 

Not  used. 

File  external  name. 


Not  used. 


Output 

Admin 

Table 


Array 


Interface  Integer 
Process 

Assigned   Bit  (1) 

File  Name  Integer 


This  structure  is  used  tc 
determine  availability  of  de- 
vices, the  interface  process 
internal  name,  and  the  file 
being  printed  en  that  device. 

Process  internal  name. 


Identifies  available  devices, 
File  internal  name. 


MODULE  DESCRIPTION 


The  Output  Controller  performs  suca  functions  as  creatinq 
and  destroying  interface  processes  and  device  RCB's; 
assigning  output  iiles  to  the  device;;  opening  and  destroy- 
ing output  files;  passing  output  buircrs  '*itn  file  a?  to  or 
system  messages  to  the  appropriate  device;  etc. 
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MODULE  IMPLEMENTATION 


StINCLUEE  NAMCHGR; 
(CHECK  (ERROR)): 


/*****   OUTPUT  CONTBCLLEE  *****/ 
OUTPUT_CCNIECLLER:  PROC  OPTIONS (MAIN) ; 


*  *  *  * 

THIS  PE 

FACIIIT 

THAT  MA 

COMIUTE 

OE  MESS 

TERNINA 

EBEOB  H 

ADDITIC 

ACCCMPL 

*  * 
OCESS 
ATE  T 
Y,  AN 

F  SYS 
AGES 
TOE, 
AN  DIE 
h,    IT 
2SH  I 


*  * 

HAS 
HE  " 
D  GE 

TO  A 

OPER 

R,  A 

INV 

ts  r 


***************  ***** 

BEEN  IMPLEMENTED  TO  CENTRALIZE  Af'D 
OUTPUT"  REQUIREMENTS  TO  VARIOUS  DEVICES 

NERALLY  DO.  EXIST  IN  AN  ALL  APPLICATION 
THE  PROCESS  INTERACTS  THROUGH  THE  USE 
ND  FROM  OTHER  PROCESSES  SUCH  AS  THE 
ATOR  SYSTEK  COMMUNICATOR.  FILE  MANAGER, 
ND  VARIOUS  INTERFACE  PROCESSES.   IN 
OKES  SEVERAL  OF  THE  PRIMITIVES  TO 
UNCTIONS.  *****/ 


XINCLUDE  SIMULTR; 

SIM_START  (FROCESS_OUTPUT  CONTROLLER) 


XI 

%I 

XI 

551 
XI 


NCLUDE 
NCLUDI 
NCLUDE 
NCLUDE 
NCLUDE 
ON  CHEOK 
BEGIN 
IF 


GENEEC; 
REQRELD; 
CASESTM; 
PCEECL; 
BCEBCL: 
(ERROR) 


il 


DO; 


XI 


GO 

END; 
END; 
NCLUDE  ERMSG 


EROR  -•=  0)  THEN 
OCHECK  (ERROR) ) : 
BEGIN; 

FIEID1  =  RELEASOR; 
MSG  SEMAPHORE  =  ^OUTPUT ; 

CALl  PRIMITIVE  RELEASE  (ANYPROC  ,$EBROB , 

MESSA"GE/EEBOR)  ; 
ERROR  =  0; 
END; 
TO  START; 


DCL 


DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
ECL 


I  OUIP 
I  NT  I 

ASSIG" 

FIN  AM 

CPR  CU 

CUT~JO 

N REE  VI 

II  FIX 
SOLE  E 
NiHDIV 
I  FIXE 
RECORD 
ERROR 

I N  A  K  E 
E  U  F  F  E  h. 
EUFFER 


UT  ADMI 
PBO*CS  F 
NED  BIT 
E  FIXED 
I  DEV  F 
Eo  FIXE 
CES  FIX 
ED  falNA 
CINTER; 
ICE  FIX 
D    BINAB 

EIXED 
FIXED    B 
FIXED    B 

USED  B 
"POINTE 


N  TABLE 
I a ED  BIN 
(1)  INIT 

BINARY 
IXED  BIN 
D  BINARY 
ED  BINAB 
RY  INIT  ( 

ED  BINAR 
Y  STATIC 
BINARY  S 
INARY  ST 
INAEY; 
11(1)  ST 
Ii  POINTE 


>!»• 


(10)  STATIC, 
ARY  INIT  ((10] 
(  (10)  (1)  '0'* 
INIT(]10)  0) 

ARY  STATIC; 

STATIC  * 
Y  STATIC  INIT  (0)  ; 

Y; 

TATIC  * 

ATIC  INIT  (0)  ; 

ATIC  INIT  ('  1'  E)  ; 
R  STATIC; 
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START:  DC  FOREVER; 

If  EUFFER  USED  THEN  DO; 

/*   GET  AN  OUTPUT  BUFFER   */ 
CALL  PRIMITIVE_REQUEST  (AN YPROC , $OBUFF , MESSAGE, E BROR)  ; 

SIM_IN1EBRUPT_PT 

BOFFEE  POINTER  =  BUFFER  LOCATION; 

BUFFER'USED  =  FALSE;    ~ 
END: 
CALL  FRIKIIIVE^REQUEST (AN YPRCC, $OUTPUl , MESSAGE  ,EBBOH)  ; 

Sia_INlERRUPT_PT 

call  message_interpreter; 

do  action  of  case  (i)  ; 
Case  ( 1 ) ~ 

/*   operator  system  communicator  message     */ 

IF  (FIELD2  =  j»$PASS)  THEN 

/***  OUTPUT  THE  MESSAGE   ***/ 
CALL  PRIMITIVE  RELEASE  (OPR  OJT  DEV,$PUTOUT. 

MESSAGE7EREOR) ; 
ELSE  DO; 

/***  PERFORM  TASK  SPECIFIED   ***/ 
CALL  OP  COMM  MSG  HANDLER; 
IF  (  (NE"BDEVICE  -•=  0)  &     (OUT  JOBS  -•=  0))  1HEN 

CALL  START  NEWJOB  (NRDEVlCES)  ; 
END; 
ENECASE; 
CASE(2): 

/*  TERMINATOR  MESSAGE  */ 

/***  INCREMENT  PRINT  JOB  COUNTER  AND  DEITERKINE 
IF  A  DEVICE  IS  AVAILABLE.  ***/ 

OUT  JOBS  =  OUT  JOBS  +  1: 

DO  I  =  1  TO  NRDEVlCES  WHILE  (ASSIGNED  (I) )  ;  ENE; 
IF  (I  <=  NRDEVlCES)  THEN  CALL  START  NEWJOB  (I)  ; 
ENECASE; 
CASE  (3)  : 

/*   FILE  MANAGER  MESSAGE  */ 

CALL  FILE  MSG  HANDLER; 
ENECASE;  ~ 
ENE  OF  CASES; 
END;     ~   ~ 

MESSAGE  INTERPRETER:  PCOC; 

/*   tETEE/HNE  WHICH  PROCESS  DID  A  RELEASE  ON  THE 
SOU1PUT  SEMAPHORE  AND  SET  THE  CASE  STATEMENT 

T  N  P  F  y  ^  3r  #  / 

IF  (FIELD  1  =  SSOFCOM)  THEN  1  =  1; 

ELSE  IF  (EIELD1  =  $ST£RM)  THEN  1=2; 
ELSE  1=3: 
END  MESSAGE  INTERPRETER; 
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CP  COM  J 
"/* 

DCL 

DCL 
DCL 
DCL 
DCL 
DCL 
DCL 
DCL 


IF 


AN  INTEEFA 

FBOCESS,  O 

(S  CE  P,K 

FTXE13  BI 

FOUND  BIT 

(EXNAME,R 

PGTABVECf 

STATE  VEC 

SES  VEC  (S 

EUM116)  B 

TEMI  PTE 

/*  DET 

(EIELE2  =  $ 

ELSE  II  (FI 

ELSE  I 


DO  ACTION  OF  C 
CASE  (IT: 
fiXNAME  = 
CALL  DEVI 


LEE:  PEOC 
PPEOPRIAI 
CE  EROCES 
E  STOP  PR 
RFGS,PRI, 
BABY; 

(1)  ; 

XNAME)  CH 
1)  FIXED 
(10)  FIXE 
EM  L  LI MI 
IT11T; 
POINTER: 
ERMINE  AC 
$ADD)  THE 
ELD2  =  $$ 
F  (FIELD3 
LSE  ERROR 
ASE  (IHDX) 
/*  ADD  A 
CHAR  FIEL 
CE  DIRECT 


E  ACTION:  I 
S,  DELETE  A 
INTING  A  JO 
PINAME,RINA 


AR(8)  STATI 


.E..  ADD  A  DEVICE  AND 
•DEVICE  AND  INTERFACE 
B.  */ 

ME,CHIID,INTRNK,INBX) 


c; 


BlNALx , 

D  BINARY  (3 

T  :  PCT  U^LIMIT)  BIT  (2)  ; 


-  -.4 


HON  REQUIRED  AND  SET  INDEX   */ 
N  INDX  =  1 
DELET)  THEN 

=  S$STOP) 

=  306: 


INDX  =  2; 

THEN  INDX  =  3; 


IF 


(FOUND 


=  FALSE) 

NVALID  EX 

FIELD2  =  $$FAI 


ELSE  DO 


DEVICE  AND  INTERFACE  PROCESS.  */ 

D1; 

ORY  (RXNAME, 
PGTABVE< 
THEN    DO; 
TERNAL    NAME 
L;       CHAR    FI] 
END; 


S    OR    P,PXNAME,NRFGS, 
IC,PRl,INTRNR,FCUND)  ; 

***  j 

:ELD2    =    'BAD    NAME'; 


/ 


***    C 

F 

CALL 

STAT 
STAT 
CALL 


IF 


REATE  PCB  FOR  INTERF 
AMILY  LINKAGE,  AND  C 

PRIMITIVE  PCBDATA (M 

C 
E  VEC(1)  =  PGTABVEC( 
E~VEC(2)     =    1;  /* 

G~ETPCB (HYNAHE, CHILD 

STATE  VEC,PI 

CHILD  ->=    0)  THEN 

ALL  PRIMITIV 


ACE  PROCESS.  SETUP 
BE/iTE  LEVICE  RGB.  ***/ 
YNAME/dGET^CHILL, 
HILD, ERROR) ; 

IC  REGISTER   */ 
rPXNAMI,PRI,TBUE, 

NAME,  (0)  ,  ERROR)  ; 


CALL  PRIMITIVE  PCBDATA (M 

P 
CALL  CREATE  RCB(#DEVICE, 

NTRNR, 
VECTO 


E  PCBDATA  (CHILD, 3PUT,a;LFlSIB, 

ILL, 


PINAKE, ERROR] 


/*  S 

RES 
RES- 
RES^ 
RES" 
RES 
RES- 
RES- 
RES- 

calt; 

CALL 


CREATE 
S  OR  P,7 
ET  UP  Bi 
VEC  =  «0 
VEC  (RINA 
VEC  (4>PUT 
(SERR 
SOBU 
(SUIT 
$INT 
|$WAI 

primiti 

SLiVL 
PRIMIT"! 


RCB  (#D 

'  ')aI] 

SOURCE 
i 


0  '  B 

ME)  • 

OUT) 


DEV 

T)  =  # 

VE  PCB 

LIMIT 

7E  PCB 


/**#  GET  MESSAGE  EUF 
ALLOCATE  MESSAGE  3 
CALL  PRi;iITIVE_PC'B 

/***  RELEASE  MESSAGE 
THE  DEVICE  INTE 
FIELD1  =  BINAME: 
CALL  PRIMITIVE  EEL 


##ACCE 
##ACC 

##ACCE 
##ACCE 
#*ACC 
##ACC 
#ACCES 
DATA  (P 
,  PCT  U 
DATA7P 

FEB  FO 

UFFER 

DATA  (F 

T 

10  TH 

RNAL  N 


YNAME,3PUT,a)CH] 

INAME,ERROR) ; 
RXSAKF.EINAiiE,  (0)  . 
(0)  ,  (0),EINAME, ERROR) 
R    FOR    PINAME    */ 

s; 
ES; 
s; 
S: 

ES; 
ES; 

ts&i 

LIJ 

y  i,  v 

NRPGS.PGTABVEC.EERGR) 

R  INTERFACE  PROCESS  */ 

SET  ' 

IK  a: 

EMP 

E    Pi 

AME. 


.ME,c.PUT,<DRESVEC, 
MIT.BES    VE.C,E5BOR) 
lME#a!PUTTa)BEHVZCf 


(1EKP    PTE) 
ME,S.PuT,u)M 


SGPIS 


RTF 


ERROR) ; 
>E"0CESS    IDENTIFYING 


EASE  (PINAME, SINTPEV, 
MESSAGE, EEROfi)  ; 
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/***  GET  OUTPUT  BUFFERS  AND  INSERT  ON  THE 
AVAILABILITY  <*UEUE     (RELEASE  MESSAGES) 
FIELD1,FIELD2, ?Ir.LD3,FIELD4  =  0; 
KSG  SEMAPHORE  =  0; 
ANSWER  REQUEST  =  FALSE: 
CHAR  IlELDl/tHAR  FISLD2  =  •  ': 
ALLOCATE  OUTPUT  BUFFER  SET  (OBUFPTR) ; 
BUFFER  L0CATI0N"~=  OBUFPTR; 
CALL  PRIMITIVE  RELEASE  (MYNAME.SOBUFF, 

MESSAGE-ERROR) ; 
ALLOCATE  OUTPUT  BUFFER  SET  (OBUFPTR)  ; 
BUFFER  LGCATION~=  OBUFPTR; 
CALL  PlIMITIVE  RELEASE  (MYNAME, $OBUFF, 

MESSAGE, ERROR)  ; 
/***  INITIALIZE  LOCAL  VARIABLES  AND  INSERT 
THE  INTERFACE  PROCESS  ON  THE  READY  'A 
QUEUE.   ENABLE  THE  DEVICE  INTERRUPT. 
NRDEVICES  =  NRDEVICSS  +  1; 
INT?  PROCS (NREEVICE3)  =  PINAME; 
IF  ("NRDEVICES  =  1)  THEN  OPR  OUT  DEV  =  PI 
CALL  PRIMITIVE  INTERRUPT_ENAELER  (INTRNR , 
NULP  =  NULL; 
CALL  RCBPUTQ (#REDYA , #OS , PINAME  ,  (0)  ,PRI,N 

(0)  ,ERROR)  ; 
NEWDEVICE  =  PINAME; 
FIELD1  =  tf$OPCOH; 
FIELD2  =  $$DONE; 
END; 
/*#*  RELEASE  ACTION  TAKEN  MESSAGE  TO  OPERA 
SYSTEM  COMMUNICATOR 
CALL  PRIMITIVE  RELEASE  (ANYPROC, $OPfi  10, MESSAG 

ERROR)  ; 
ENECASE; 

CASE  (2):     /*   DELETE  A  EEVICE  AND  DESTROY  THE 

INTERFACE  PROCESS 
CALL  FIND  INAME(#DEVICE,CHAR  FxELD i  ,  RINAME , ER 
CALI  PRIMITIVE  RCBDATA  (RINAME , fcGET, #DINAME , IN 


** 


*/ 


** 


V 


NAME; 
CUM)  ; 

ULP, 


TOE 

it 


aGn}   ; 

TENR, 


CALL 


ERROR)  ; 

PRIMITIVE  INTERRUPT  DISENABLES  (INTRNR , BUM)  ; 
/*  LOCATE  BUFFERS  AND  DESTROY  THEM, 


ENECASE; 
CASE  (3)  : 


RCB,  PCB,  MESSAGE  CONTAINER 

UESTS 
*/ 


DESTROY 

AND  ALL  OUTSTANDING  EELEASES/RSQ 

CONCERNING  THE  INTERFACE  PROCESS 


RXNAME 

CALL 

CALL 


/*  STOP  PRINTING  CURRENT  JOB   */ 
GET  INTERNAL  NAME  OF  THE  EEVICE  AND 
INTERFACE  PROCESS. 
CHAR  FIELD1 


FIND  INA7IE(#DEVICE, RXNAME, INAME, ERROR)  ; 
PRIMITIVE  RCBDATA (INAME, tfGET , #CWNEB, PINA 

ERROR)  ; 


DO  I  =  1  TO 


/*** 


NRDEVICES 

WHILE  (INTF  PROCS  (I)  -»=  PINAME)  ; 
RESET  LOCAL  VARIABLES,  RELEASE  MESSAG 
OPERATOR  SYSTEM  COMMUNICATOR,  AND 
CHECK  FOR  NEW  JCB  TO  PRINT. 
FINAME(I)  =  0; 
ASSIGNED  (I)  =  '0'B; 
FIELD1  =  $:SOPCOM; 
IIEID2  =  $jpDONE; 
CALL  PRIMITIVE  RELEASE  (AN YPROC, $OPR  10, MESSAG 

ERROR)  ; 
IF  (OUT  JOBS  i=  0)  THEN  CALL  START  NEWJ03  (I)  ; 
ENICASE; 
END  OF  CASFS; 
END  CT  CCMM  MSG  HANDLER; 


ME, 


END; 

E  TO 


E, 


9a 


DCL 


FILE  MSG  HANDLER:  PROC; 

/?  I HlS  SUBROUTINE  PAS 
AEPRCPRIATE  OUTPUT  D 
JCBS  TO  PRINT;  IF  AN 
PRINT  QUEUE  AND  ASSI 
ECR  PRINTING. 
FXNAME  CHAR(8)  STATI 
DO  I  =  1  TO  N 
END; 

/***  PASS  OUTPUT 
INTERFACE  P 
(FIELD  1  =  $$READ 
RECORD  =  FIELD3 
MSG  SEMAPHORE  = 
CALL*  PRIMITIVE  R 


SES  OUTPUT  BUFFERS  TO  THE 
EVICE:  CHECKS  FOR  OUTSTAN 
Y,  GETS  THE  FILE  NAME  FRO 


GNS  THE 
RDEVICES  WHILE 


FILE  TO 


DING 
M 
THE  DEVICE 


IF 


(FINAME(I)  -=  FIE1D2)  ; 


/***  G 

M 
F 
EUFFER 
IIELD1 
FIELD2 
EIELD3 
FIELD4 
CHAR  F 
CH 
MSG  SE 
ANSWER 
CALL  P 


EI  ANOTHER 
ESSAGE  BUF 
ILE  MANAGE 
LOCATION 
=  $$READ; 
=  FINAME( 
=  RECORD; 
,FIELD5,FI 
IELD1,CHAR 
AR  FIELD4 
MAPHOEE  = 

REQUEST  = 
SIMITIVE  R 


BUFFER  TO  APPROPRIATE 
ROCESS. 
)  THEN  DO; 

+  1; 

50UTPUT: 

ELEASE(INTF  PROCS  (I)  ,  $PUT 
MESSlGE, ERROR) ; 
OUTPUT  BUFFER,  INITIALIZ 
FSR,  AND  RELEASE  MESSAGE 
R  TO  READ  THE  NEXT  RECORD 
=  BUFFER^POINTER; 

i)  ; 


OUT, 


E 
TC 


** 


*/ 


BUFFER  USED  =  TR 


ELSE  IF 


(FIELD1  =  $ 
PRINT  TASK 
VARIABLES, 
THE  OUTPUT 
FILE  MANAGE 

ASSIGNED  (I)  = 

FINAME(I)  as  0 

IF  (OUT 

CALL 


ELD6  =  0; 
_FIELD2,CHAR_FIEID3f 

—    I  I  • 

SOUTPUT; 

TRUE; 
ELEASE (ANYPROC,$FILEOP,  MESSAGE, 

ERROR)  ; 
UE; 

END; 
SEOF)  THEN  DO; 

FINISHED:  REINITIALIZE  LOCAL 
TEST  FOR  NEW  PRINT  JOB-  RE  I  EASE 
BUFFER,  AND  RELEASE  MESSAGE  TO 
R  TO  DESTROY  THE  EILE     ***/ 
FALSE; 


(OUT  'jov-s   A 


=   0) 

PRIMITIVE  EEL 


FIELD1  =  $$DST 
CALL  PRIMITIVE 


ELSE  DO;    /*   FILE 
/***  GET  OUTPUT 

BUFFER,  AND 
MANAGER  TO 
BUFFER  LOCATIO 
FIELD1  =  S^REA 
FIELD2  =  FINAM 
FIELD3  =  1; 
FIELD4,FIELD5, 
CHAR  FIELD1,CH 
T!HAR  FIELD 
MSG  SEMAPHORE  = 
ANSWER  REQUEST 
CALL  P3IMITIVE_ 

BUFFER  USED  = 
END; 
END  FILE  MSG  HANDLER; 


YF- 

REL 


OPE 
BUFF 

REL 
READ 
N  = 

»; 

E(I) 


THEN  CALL  START  NElvJOE  (I)  ; 
EASE  (MYN(\ME,$OBUFF,  MESSAGE, 
ERROR) ; 

EASE(ANYPROC,$FILEOE, 
MESSAGE, ERROR) ; 
END; 
NED  */ 

ER,  INITIALIZE  MESSAGE 
EASE  MESSAGE  TO  THE  EILE 

THE  FIRST  RECORD.        **#/ 
EUFFER  POINTER; 


FIELD6  =  0; 

AR  FIELD2,CHAR  FIELD3, 

4   =   11; 

^OUTPUT; 
=    TRUE; 
RELEASE  (ANYP-iOC,$FILEOP, 

MESSAGE, ERROR)  ; 
TRUE; 
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/***  THIS  SUBROUTINE  OBTAINS  THE  EXTERNAL  NAME  CF  THE 
FIXE  TO  BE  PRINTED  FROM  THE  PRINT  QUEUE  (CHAR- 
FIELD1) ,  RELEASES  A  MESSAGE  TO  THE  FILE  MANAGER 
10  OPEN  THE  FILE  FOR  A  READ  OPERATION,  UPDATES 
LOCAL  VARIABLES  TO  REFLECT  THE  ASSIGNMENT,  ANE 
CHANGES  OWNERSHIP  OF  THE  FILE  TO  THE  OUTPUT 
CONTROLLER.  ***/ 

START  NEHJOB:  PROC(INDEX); 

DCITINDEX  FIXED  BINARY; 

CALL  PRIMITIVE  REQUEST (ANYPRCC,$PRINTQ, MESSAGE, ERROR) ; 

FIELE1  =  SSOPElF;         . 

FIELE2  =  ##READ; 

MSG  SEMAPHORE  =  $OUTPUT; 

ANSWER  REQUEST  =  TRUE; 

CALL  PRIMITIVE  RELEASE  (A NYPR0C,$FILEOP , MESSAGE , ERROR)  ; 

ASSIGNED  (INDEXJ  =  TRUE; 

FINAME  (INDEX)  ,  INAME  =  FIELD2; 

OUT  JCBS  =  OUT  JOBS  -  1; 

CALX  ERIKITIVEl'RCBD/iTA  (1NAME  ,  # PUT,  *0R  NER  ,MYNAME  ,  ERROR)  ; 
END  STSRT^NEWJOB; 

SIM_END 

END   OUTPUT^CONTROLLER;  . 
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MODULE  SPECIFICATION 

NAME:   INITIATOR  TYPE:   PROCESS 

PAR AMETEBS 

INPUT QJJTPUT TYPE CONTENTS_ 

Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME i£MM2MJ*§. PURPOSE 

Reguest    Process  I-Name,      a)  $Iname  -  Semaphore  used  to 
Semaphore,  limit  the  number  of  proces- 

Message  Pointer,  ses  in  the  system.  Requests 
Error  Parameter  decrement  counter  while  re- 
leases by  Terminator  incre- 
ment the  counter, 
b)  iNewjob  -  Semaphore  used  to 
identify  messages  to  this 
process. 

♦#**##*******#Module  implementation  Incomplete************** 

*****#********#**&nticipated  External  calls***************** 

PCBData    Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 

PCBData    Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data  or  portions  cf  the 
Vector  Lower  Limit,  data  stored  as  a  vector  (i.e.. 
Vector  Upper  Limit,  Resource  Access  Vector,  tage 
Vector  Parameter,    Table  Vector,  etc.). 
Error  Parameter 

RCBData    Resource  I-Name,     Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  to  enter  cr  get 
Field  Identifier,    data  concerning  a  resource. 
Data  Parameter, 
Error  Parameter 

RCBPUTQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  on  a  specified 

Data  Parameter,  resource  queue  by  priority. 

Priority,  Queues  used  by  this  process 

Message  Pointer,  are  the  message  semaphore  and 

Data  Parameter,  the  Ready  Active  gueues. 
Error  Parameter 

GETPCB     Parent  I-Name,       Entry  point  to  PCB  Structures 
Rgt-Sib  I-Name,      used  to  create  a  PCB  for  a 
Process  X-Naine,      process;,  enter  data  in  the  PCB 
Priority,  fields;  and  return  the  process 

System  frocess  ID,   internal  name. 
Init  State  Vpctor, 
Process  I-Name, 
Cyclic  Process  Id, 
Error  Parameter 
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Create     Hesource  Type, 
RCB       Resource  X-Name, 
Resource  Owner. 
Sz-Cntr  Parameter, 
Access  Identifier, 
PCT  Name, 

Dev/Int  Identifier, 
File  Descriptor, 
File  Descriptor, 
Resource  I-Naae, 
Error  Parameter 

Find      Resource  Type, 
I-Name     Resourse  X-Naine, 
Resource  I-Name, 
Error  Parameter 


RCBGETQ    Resource  I-Name, 
Left/Right  Queue, 
Process  I-Name, 
Q_Data  Parameter, 
Message  Pointer, 
Q_Data  Parameter, 
Found  Boolean, 
Q_Status  Boolean, 
Error  Parameter 

RCB^Find  Resource  I-Name, 
Left/Right  Queue, 
Find  Operation, 
Queue  Position, 
Process  I-Name, 
Data  Parameter, 
Data  Parameter, 
Error  Parameter 


Entry  point  to  RGB  Handler 
used  to  create  an  RCts  of  the 
type  specified;  enter  descrip- 
tor data  in  the  appropriate 
RC3  fields;  and  return-  the 
resource  internal  name.  Not 
all  fields  are  used  by  each 
type  of  resource. 


Entry  point  to  RCB  Handler 
used  to  get  the  internal  name 
for  the  resource  specified  by 
type  (file,  device,  etc.)  and 


external  name. 

This  entry  point  to  RCB  Hand- 
ler is  used  to  remove  a  pro- 
cess from  the  specified  queue 
for  the  indicated  resource. 
The  data  stored  in  the  queue 
are  returned  if  the  process  is 
found  and  the  gueue  status  is 
also  provided. 


This  entry  point  to  RCB  Hand- 
ler is  used  to  determine  queue 
position  of  a  process  and  put 
or  get  a  copy  of  data.  The 
process,  position,  or  both  may 
be  specified  tc  select  a  spe- 
cific process,  any  process  at 
the  specified  position  01  a 
specific  process  at  a  speci- 
fied position. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
NAME PyM25E 


Not  applicable  for  processes. 
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DATA  STRUCTURES  USED 

NAME , FIELD TYPE PURPOSE/VALUES 

Message     Based      Dynamically  allocated,  pointer 

Buffer  qualified  structure  used  for 

passing  messages. 

Releasor   Integer    Internal  name  of  process 

releasing  a  message. 

Answer-    Bit(1)     Boolean  indicating  if  answer 
Reguest  required. 

Message-   Integer    Semaphore  to  be  used  in  the 
Semaphore  answer. 

Buffer-   Pointer   Not  used. 
Location 

Eield1-6   Integer    Use  undefined. 

Char-     Char(3)    Use  undefined. 
Eield1-4 

***************^aditional  Structures  Undefined************** 


MODULE  DESCRIPTION , ^ 

Initiator  design  and  implementation  is  incomplete:  job 
types,  JCI  used,  etc.  must  be  known  before  inplementat ion. 
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5SINCLUDE  NAHCHGR; 


(CHECK  (ERROR) ) : 

IHIXIATOE:  PEOC  OPTIONS (MAIN) ; 


MODULE_IM£LE MENTATION 

/*****       INITIATOH    *****/ 


^INCLUDE  GENIEC; 
XINCLUDE  PCBCCL; 
SfclNCLUDE  EEQEELD; 
j&INCLUDE  BBKSG; 

ON  CHECK  (ERROR) 
BEGIN ; 

IE  (EEEOR  -1=  0)  THEN  DO; 

(NOCHECK  (ERROR) )  :  BEGIN; 

FIELD1  =  RELEASOR; 
IIELD2  =  ERROR; 
CALL  PRIMITIVE  RELEASE  (ANYPROC , SERROR, MESS AGE. 

ERROR) ; 
GO  TO  START; 
END; 
END; 
END; 
DCL  (NEW  P  I  NAME, PARENT, PRIORITY)  FIXED  BINARY; 
DCL   ZXTlEftAl  NAME  CHAR (8); 
DCL  EREOE  FIX"ED  BINARY  STATIC  INIT  (0)  ; 

START: 

DC  FCEEVEE  ; 

/***  CHECK  FOR  AVAILABLE  PCE  SPACE  ***/ 
CALL  PRIHITIVE_EEQUEST  (ANYPROC, SIN AME, MESSAGE, ERROR)  ; 

/***  GET  NEXt  JOB  TO  BE  CREATED  ***/ 
CALL  PRIMITIVE  REQUEST  (AN YPROC , SNEN JOE, MESS  AGE , 

ERROR)  ; 

/**#  INTERPRET  DATA  FROM  JO£  QUEUE  ***/ 
CALL  JCL  INTERPKETi-R; 

/**#  GET  THE  REQUIRED  EESOUECES  ***/ 
CAIL  GET_REQUIRED_RESOURCES; 

/***  CREATE  A  PC3  FOR  THE  PROCESS  ***/ 
/***   CALL  CREATE_PCB  ***/ 

/***  FREE  JOB  QUEUE  SPACE  ***/ 
CALL  IRIMITIVE  RELEASE  (ANYPROC , $JOBQSP, MESS AGE, 

ERROR)  ; 

/***  INSERT  THE  PROCESS  ON  THE  READY  A  QUEUE  **/ 
CALL  ECBPUTQ  (#RED YA , # USER , P  I  NAME ,  (0)  , PRIORITY  , 
MSGPTR,  (0)  ,ERRDR7; 

END  ;   /*  MAIN  PROGRAM  SCOPE  */ 

JCL_IN1EEPRETER:  PROC  ; 

/*   INTERPRET   JCL  TO  IDENTIFY  REQUIRED  RESOURCES 

AND  CAPABILITIES  */ 

RETURN; 

END  JCL^INTERPRETER; 

GET_REQUIEED_RESOURCES:  PROC  ; 

/*  VEEIFY  THAT  THE  PROCESS  EEING  CREATED  CAN  ACCESS 
THE  RESOURCES  HE  REQUESTED  ;  CREATE  RCB1  AS 
NECESSARY  AND  SET  UP  ACCESS  ViCTCR  */ 


RETURN; 

END  GE1  BEQUIBiD  RESOURCES; 
END  IMITIATOB; 
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MODULE  SPECIFICATION 

NAME:   TERMINATOR  TYPE:   PROCESS 

PAH AMETEBS 

INPUT OJJJIPUT 2XR£ CONTENTS 

Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME PARAMETERS PURPOSE 

Request    Process  I-Name,  a)  $Endjob  -  Semaphore  used  to 
Semaphore,  identify  messages  to  this 

Message  Pointer,        process. 
Error  Parameter 

**************^0(jule  implementation  incomplete************** 

*************###*Anticipated  External  calls***************** 

Find      Process  X-Name,      Entry  point  to  PCB  Handler 
Piname    Process  I-Name,      used  to  ootain  the  internal 
Error  Parameter      name  of  a  process  identified 

by  external  name. 

PCBData    Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 

PCBData    Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data  or  portions  cf  the 
Vector  Lower  Limit,  data  stored  as  a  vector  (i.e., 
Vector  Upper  Limit,  Resource  Access  Vector,  Page 
Vector  Parameter,    Table  Vector,  etc.). 
Error  Parameter 

RCBData    Resource  I-Name,     Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  to  enter  cr  get 
Field  Identifier,    data  concerning  a  resource. 
Data  Parameter, 
Error  Parameter 

RCBPUTQ    Resource  I-Name,  Entry  point  tc  HCB  Handler 

.Left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  on  a  specified 

Data  Parameter,  resource  ^ueue  by  priority. 

Priority,  Queues  used  ty  this  process 

Message  Pointer,  are  the  message  semaphore  and 

Data  Parameter,  the  print  queues. 
Error  Parameter 

Destroy-   Resource  I-Name,     This  entry  point  to  RCB  fcand- 
RCB       Process  I-Name,      ler  is  used  to  destroy  an  RCB. 
Process  Vector,      All  processes  on  the  RCB  queue 
Error  Parameter      are  identified  and  returned  to 

the  calling  frcctss  so  that  an 
error  message  may  be  sent  to 
tne  Error  Handler  for  each 
process  in  the  list. 
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RCBGETQ 


Besour 

left/R 

Proces 

Q  Lata 

Messag 

Q_Eata 

Found 

Q_Stat 

Error 


ce  I-Name, 
ight  Queue, 
s  I-Name, 

Parameter, 
e  Pointer, 

Parameter, 
Boolean, 
us  Boolean, 
Parameter 


This  entry  point  to  RCE  Hand- 
ler is  used  to  remove  a  pro- 
cess from  the  specified  yueue 
for  the  indicated  resource. 
The  data  stored  in  the  queue 
are  returned  if  the  process  is 
found  and  the  queue  status  is 
also  provided. 


EXTERNAL  CAIIS  MADE  BY  OTHER  MODULES 
NAMJ s PURPOSE 

Not  applicable  for  processes. 


DATA  STRUCTURES  USED 

NAME ,_IIE1D TYPE PHEPOSE/ViLUES. 


Message 
Buffer 


Based 


Releasor   Integer 


Answer- 
Reguest 


Bit  (1) 


Message-   Integer 
Semaphore 


Buffer- 
Location 

Field1-6 

Char- 
Eield1-4 


Pointer 

Integer 
Char  (8) 


Dynamically  allocated,  pointer 
qualified  structure  used  for 
passing  messages. 

Internal  name  of  process 
releasing  a  message. 

Boolean  indicating  if  answer 
required. 

Semaphore  to  be   used  in  the 
answer. 

Not  used. 


Use  undefined. 
Use  undefined. 


***************A(idit ional  Structures  Undefined************** 


MODULE  DESCRIPTION 


Terminator  design  and  implementation  is  incomplete.  Notei 
teminaticn  of  a  process  results  in  the  termination  of  all 
dependent  processes;  deallocating  resources;  and  printing 
output  files. 
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MODULE    IMPLEMENTATION 

55INCLUDE    NAMCHGR;  /*****    TERMINATOR    ******/ 

(CHICK  (ERROR)): 

TERMINATOR:  IBOC  OPTIONS (MAIN)  ; 

S5INCLUDE  GENCEC; 
^INCLUDE  FCEDCL; 
JblNCLUDE  EEQRELD; 
55INCLUDE  EBHSG; 

ON  CHECK  (ERROR) 
EEGIN: 
IF  (ERROR  -.=  0)  THEN  DO; 

(NCCHECK  (ERROR)  )  :  BEGIN; 
IIELD1  =  RELEASOR; 
FIELD2  =  ERROR; 
CALL  PRIMITIVE  RELEASE  (ANYPROC ,$ERROR, MESS  AGE, 

ERROR) ; 
EREOB  =0; 
GO  TO  START; 
•  END; 
END; 
END; 
DC1  P  I  NAME  EIXED  BINARY; 

DCl  IRROR  FIXED  BINARY  STATIC  IKIT (0) ; 
DCL  (INVALID, TERM  FLAG)  BIT  (1)  ; 
START: 
DC  FOREVER; 

/***  GET  TERMINATION  MESSAGE  ***/ 
CALL  PRIfclITIVE_REQUEST  (ANYPROC,  $ENDJOB  ,  MESSAGE  , ERROR)  ; 

/***  VERIFY  THE  MESSAGE  ***/ 
CALL  TEEMINATION_VALIDATOR; 

/***  VALID:  THEN  START  TERMINATING  ***/ 
TERM  FLAG  =  TRUE; 

DO^WHILE     (TERM    FLAG)      ; 

/***  SELECT  THE  PROCESS  TO  BE  TERMINATED  ***/ 
CALL  TERM_SELECTOR; 

/***  LNSERT  CODE  TO  DETERMINE  OUTPUT  FILES  ***/ 
/***  RELEASE  MESSAGE  TO  OUTPUT  CONTROLLER  ***/ 
CALL  PRIMITIVE  RELEASE (ANYPROC, $OUTPUT, MESSAG E , 

ERROR)  ; 

/***  DESTROY  THE  PROCESS  ***/ 
/*   CALL  PRIMITIVE_DESTROY{PINhME,PROCVEC, ERROR) ; */ 

/***  RELEASE  ERROR  MESSAGES  FOR  ANY  PROCESS 

QUEUED  ON  A  RESOURCE  JUST  DESTROYED  ***/ 
/*******  INSERT  CODE  ******/ 
/***  FREE  THE  JOB  QUEUE  SPACE  ***/ 
CALL  PRIMITIVE  RELEASE  (ANYPROC, $INAME, MESSAGE, 

ERROR)  ; 
END; 


END, 

TERMINATION  VALIDATOR:  PROC; 

/*   THIS~"SUBBOUTINE  VERIFIES  THE  JOB  TERMINATION 
REQUEST;  I.E.,  THE  VALIDITY  OF  PROCESS  «A'  TO 
DESTROY  PROCESS  «  b'.  */ 

INVALID=FALSE; 
END  TERMINATION  VALIDATOR; 
TERM  SELECTOR:  T'RCC; 

/*  IHIS  SUBROUTINE  DETERMINES  WHICH  PROCESS  OR 

MEMBER  OF  A  PROCESS'S  FAMILY  IS  TO  BE  DESTROYER 
FIRST.  */ 

TERM  FLAG=FALSE; 
END  TEfil  SELECTOR; 
END  TERMINlTCR; 
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MODULE  SPECIFICATION 

NAME:   FILE_MANAGER  TYPE:   PROCESS 

PAR AMETE  RS 

INPUT OUTPUT  _   TYPE   CONTENTS 


Not  Applicable:  All  communications  handled  via  messages. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME EMMMIM PUR.POSJ3 

Request    Process  I-Name,  a)  $Fileop  -  SemaDhore  used  to 
Semaphore,  identify  messages  for  this 

Message  Pointer,        process. 
Error  Parameter 

Release    Process  I-Name,      a)  $Error  -  Semaphore  used  to 
Semaphore,  send  messages  to  the  Error 

Message  Pointer,        Handler. 

Error'Parameter      b)  $Intdev  *>  Semaphore  used  to 

send  message  to  an  inter- 
face process  to  identify  a 
device  internal  name. 

c)  $Rtilew  -  Semaphore  used  to 
release  messages  to  an  in- 
terface process  to  perform 
a  read  or  write  operation. 

d)  $Opr  10  -  Semaphore  used  to 
send'a  message  to  Operator 
System  Communicator  when 
replying  to  a  message  from 
Op-Sys-Comm. 

e)  $Space  -  Semaphore  used  to 
send  messages  to  the  File 
Space  Manager  when  a  file 
is  destroyed  or  when  a  de- 
vice is  added  or  deleted. 

f)  $Wait  -  Semaphore  used  to 
send  a  message  to  a  process 
which  sent  an  open-file 
message. 

g)  $XXXXX  -  Semaphore  used 
when  specified  in  answer  to 
a  message  received. 

Find       Process  X-Name,      Entry  point  to  PCB  Handler 
Piname     Process  I-Name,      used  to  obtain  the  internal 
Error  Parameter      name  of  a  process  identified 

by  external  name. 

Device     Resource  X-Name,  This  module  is  invoked  tc  get 
Directory  Access  Identifier,  data  which  identifies  a  device 
Process  X-Name,  interface  process  and  which  is 
Page  Table  Length,  required  to  create  a  PCB  and 
Page  Taule  Vector,  an  RCB  for  the  interface  pro- 
Priority,  cess  and  device,  respectively. 
Interrupt  Number, 
Located- Boolean 

PCBData    Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 
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PCEData   Process  I-Name,  Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 

field  Identifier,  obtain  data  or  portions  of  the 

Vector  Lower  limit,  data  stored  as  a  vector  (i.e., 

Vector  Upper  Limit,  Resource  Access  Vector,  tage 

Vector  Parameter,  Table  Vector,  etc.) . 
Error  Parameter 

RCBData    Resource  I-Name,  Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  to  enter  cr  get 

Field  Identifier,  data  concerning  a  resource. 
Data  Parameter, 
Error  Parameter 

RCBEUTQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

Left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  en  a  specified 

Data  Parameter,  resource  queue  by  priority. 

Priority,  Queues  used  by  this  process 

Message  pointer,  are  the  message  semaphore  and 

Data  Parameter,  the  Ready  Active  queues. 
Error  Parameter 

Find      Resource  Type,  Entry  point  to  RCB  Handler 

I-Name     Resourse  X-Name,  used  to  get  the  internal  name 

Resource  I-Name,  for  the  resource  specified  by 

type  (file,  device,  etc.)  and 

external  name. 


Error  Parameter      type  (file,  device,  etc.)  ai 


Interrupt  Interrupt  Number,    This  module  is  invoked  tc  en- 
Enaoler    Interrupt  Save-      able  a  specific  interrupt  or 

Vector  enable  all  interrupts  disabled 

by  this  process. 

Interrupt  Interrupt  Number,    This  module  is  invoked  to  dis- 
Disabler   interrupt  Save-      able  a  specific  or 

Vector  ail  interrupts  and  saving  the 

status  of  tne  interrupts  in 
a  save-vector  for  enabling. 

Create    Resource  Type,  Entry  point  to  RCB  Handler 

RCB        Resource  X-Name,  used  to  create  an  RCB  of  the 

.Resource  Owner.  type  specified;  enter  descrip- 

Sz-Cntr  Parameter,  tor  data  in  the  appropriate 

Access  Identifier,  RCB  fields;  anu  return  the 

PCI  Name,  resource  internal  name.  Mot 

Dev/Int  Identifier,  all  fields  are  used  by  each 

File  Descriptor,  type  of  resource. 
File  Descriptor, 
Resource  I-Name, 
Error  Parameter 

GETPCB     Parent  I-Name,       Entry  point  tc  PCB  Structures 
Rgt-Sib  I-IJame,      used  to  create  a  PCB  for  a 
Process  X-Name,      process;  enter  data  in  the  PCB 
Priority,  fields;  and  return  the  process 

System  Process  ID,   internal  name. 
Init  State  Vector, 
Process  .I-Name, 
Cyclic  Process  Id, 
Error  Parameter 

Destroy-   ResouLce  I-Name,     This  entry  point  to  RCB  Kand- 
RCB        Process  I-Name,      ler  is  used  to  destroy  an  RCB. 
Process  Vector,      All  processes  on  the  liCc  queue 
Error  Parameter      are  identified  and  returned  to 

the  calling  process  so  that  an 
error  message  may  be  sent  to 
the  Error  Handler  for  eacn 
process  in  the  list. 
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RCBGETQ    Resource  I-Name, 
Left/Right  Queue, 
Process  I-Name, 
Q_Eata  Parameter, 
Message  Pointer, 
Q_Eata  Parameter, 
Found  Boolean, 
Q  Status  Boolean, 
Error  Parameter 

RCB-      Resource  I-Name, 
Transfer-  Left/Right  Queue, 
Queue      Process  I-Name, 
Frcffi  Q  Status, 
To  Q_Status, 
Xfered  Boolean, 
Error  Parameter 


RCB-Find 


Resource  I-Name, 
Leit/Right  Queue, 
Find  Operation, 
Queue  Position, 
Process  I-Name, 
Data  Parameter, 
Data  Parameter, 
Error  Parameter 


This  entry  point  to  RCB  Hand- 
ler is  used  to  remove  a  pro- 
cess from  the  specified  gueue 
ior  the  indicated  resource. 
The  data  stored  in  the  queue 
are  returned  if  the  process  is 
found  and  the  gueue  status  is 
also  provided. 


This  entry  point  to  RCB  Hand- 
ler is  used  to  transfer  a  pro- 
cess from  the  gueue  specified 
to  the  opposite  gueue.  The 
status  of  the  To-Queue  before 
transfer  and  From-Queue  after 
transfer  are  returned. 

This  entry  point  to  RCE  Hand- 
ler is  used  to  determine  gueue 
position  of  a  process  and  put 
or  get  a  copy  of  data.  The" 
process,  position,  or  both  may 
ne  specified  tc  select  a  spe- 
cific process,  any  process  at 
the  specified  position  or  a 
specific  process  at  a  speci- 
fied position. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
NAMJ PURPOSE ^ 

Not  applicable  for  processes. 


DATA  STRUCTURES  USED 

NRMF. IIJLD TYPE I^MOSE/VALUES, 


Message 
Buffer 


Based      Dynamically  allocated,  pointer 
gualified  structure  used  for 
passing  messages. 


Releasor   Integer 


Answer- 
Reguest 


Bit  (1) 


Message-   Integer 
Semaphore 


Buffer- 
Location 

Field! 


Pointer 


Integer 


Internal  name  of  process 
releasing  a  message. 

Boolean  indicating  if  answer 
reguired. 

Semaphore  to  be  used  in  the 
answer. 

Qualified  I/O  buffer  contain- 
ing data  read  from  a  file  cr 
to  be  written  into  a  file. 

a)  $$OPCOM  -  Message  froa 
Operator  System  Communica- 
tor . 

b)  $$J.  NTPC  -  Message  froa  in- 
terface process. 

c)  #$OPENF  -  Message  to  cpen 
a  file. 

d)  S'SRtlkD    or  $$WRITE  -  Message 
to  do  a  file  read  or  write 
operation . 

e)  $$CLOSF  -  Message  to  close 
a  tile. 

f)  .5$DSIYF  -  Messagn  to  de- 
stroy a  file. 
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Field2     Integer 


Field3     Integer 


Field4 
Field5 

Field6 


Char- 
Fieldl 

Char- 
Field2 

Char- 
Field3-4 


Integer 
Integer 
Integer 
Char  (8) 
Char(8) 
Char  (8) 


a) 


c) 


d) 


1) 


$$OPRTR  -  Operator  message 
reply  to  a  request  for  ac- 
cess to  a  restricted  file. 
$$ADD  or  $»DELET  -  $$CPCOM 
message  to  add  or  delete  a 
device  and  interface  pro- 
cess. 

File  internal  name  identi- 
fying a  file  to  be  clcsed. 
accessed  on  a  read  or  write 
operation,  or  destroyed. 
##READ  or  ##WRITE  -  Denti- 
fies  type  access  requested 
in  a  file  open  message. 
$$EOF  -  End  of  file  read. 
Directory  entry  number. 


a)  Record  number  to  be  read 
from  or  written  into. 

b)  File  length  for  files  in 
the  directory  for  the  PCT. 

Device  internal  name  identi- 
fied in  $$INTPC  message. 

a)  $$TEMPF  or  $$PERKF  -  Iden- 
tified in  $3INTPC  messages. 

a)  ##SHRD  or  ##PRIV  -  Identi- 
fied in  $$IMIPC  messages. 

File  or  device  external  name. 


Pack,  tape,  cell, 
external  name. 

Not  used. 


etc 


(ECT) 


MODULE  DESCRIPTION 


File  Manager  has  been  implemented  to  perform  the  standard 
file  operations  of  opening,  closing,  destroying,  reading 
from  and  writing  into  files.  Creating  files  is  performed  by 
an  independent  module  to  prevent  file  creation  when  space  is 
not  available  from  interfering  with  the  other  file  opera- 
tions. In  addition,  this  process  controls  the  allocation  of 
files  and  prevents  deadlocks  using  preemptive  technigues; 
i.e.,  once  a  process  has  been  assigned  access  to  a  file  if 
subsequent  open  requests  cannot  be  satisfied  immediately  and 
a  potential  aeadlocK.  exists,  the  process's  files  are  sacri- 
ficed (can  be  allocated  to  other  processes)  until  such  time 
as  all  files  required  can  be  allocated  concurrently.  Inter- 
face processes  and  device  RCB's  are  also  created  and 
destroyed  ny  this  process. 
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MODULE  IMPLEMENTATION 

S5INCLUDE  NAKCHGR;  /*****  FILE  MANAGER  *****/ 

(CHECK  (ERROR)  )  : 

FILE_MANAGER:  PROC  OPTIONS  (MAIN)  ; 

^INCLUDE  SIMD1TH: 

SIM_STAET  (EROCESS_FILE_MANAGER) 

3&INCLUDE  GENEEC; 
^INCLUDE  REGRELD; 
5SINCLUDE  CASZSia; 
^INCLUDE  RCEDCL; 
55INCLUDE  PC5ECL* 

DCL  ERROR  FIXED  EINARY  INITIAL  (0); 
DCL  I  PIXEL  BINARY; 

ECL   RCBNR  FIXED  BINARY; 

DCL   PCTNAME  CHAR  (8 j; 

DCL   NULP  POINTER; 

ON  CHECK  (ERROR) 
BEGIN; 

IF  (ERROR  --=  0V  THEN  DO; 
IIEID1  =  RELEASOR; 
FIELD2  =  ERROR; 
IF     (ERROR  =  112)  THEN  DO; 
ANSWER  REQUEST  =  TRUE; 
MSG  SEMAPHORE  =  $FILEOP; 

END; 
ELSE  DO; 

ANSWER  REQUEST  =  FALSE; 
MSG  SEMAPHORE  =  0; 
EnD; 
(NOCHECK  (ERROR)  )  : 
EEGIN; 

ERROR  =  0; 

CALL  PRIMITIVE  RELEASE (ANYPROC,$EKROR , MESSAGE, 

ERROR)  ; 
END; 
IF  (ERROR  -=  118)  THEN  GO  TO  START; 

END; 
END; 


^INCLUDE  RRMSG; 

START: 

DC  FOBEVER; 

CALL  PRIMITIVE_REQUEST  (AN YPROC, $FILEOP, MESSAGE, ERROR)  ; 

SIM^INTERRUPT^PT 

CALL  MESSAGE_INTERPRETER  (I)  ; 
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DO_ACTICN_OF   CASE  (I); 

CASE  ( 1)  : 

/*  MESSAGE  FROM  OPERATOR  SYSTEM  COMMUNICATOR     */ 

CALL   OP  COMM  MSG  HANDLER; 
ENICASE; 

CASE  (2)  i 

/*    MESSAGE  FROM  DEVICE  INTERFACE  PBOCESS 
PERFORM  SUCH  ACTIONS  AS  UP  DATING  THE 
MASTER  FILE  LIST,  FILE  DIRECTORY  ON  THE 
DRUM,  "PACK,  TAPE,  ETC.,  RELEASING  MESSAGE 
TO  STORAGE  MEMORY  MANAGER.  */ 

IF  (FIELD2  -«=  S$EOF)  THEN  DO; 

/***  IF  EXISTING  FILE  IS  TEMPORAY  THEN  DELETE  IT 
IT  FROM  THE  DIRECTORY  ELSE  CREATE  AN  RCB   */ 
IF  (FIELD5  *•«=  $$TEMPF.)  THEN  DO; 

CALL  PRIMITIVE  RCEDATA  (FIELD4  ,  #GET,  tfPCTNAM, 

PCT NAME, ERROR) ; 
CALL  CREATE  RCB  (#FILE, CHAR  FIELD  1 , MYNAMF , 
FIELD37FIELD6,PCTNAME7FIELD4,S# AVAIL, 
##PERMF, RCBNR, ERROR) ; 

END; 
ELSE  DO; 

ANSWER  REQUEST  =  FALSE; 
FIELD1~=  :p$DIRDL; 

CALL  PRIMITIVE  RELEASE  (RELEASOR, $RFILEH , 

MESSAGE, ERROR) ; 
END; 

/***  GET  THE  NEXT  DIRECTORY  ENTRY  ***/ 
FIELD1  =  -StfDIRRD;   FIELD2  =  FIELD2  +  1; 
ANSWER  REQUEST  =  TRUE: 

CALL  PRIMITIVE  RELEASE  (RELEASOR  ,  $EFILEW  ,- 

MESSAGE, ERROR) ; 
END; 

y***  E0F:  CREATE  AN  RCB  FOR  THE  PCT  AND  REIEASE 
A  MESSAGE  TO  THE  FILE  SPACE  MANAGER     ***/ 
ELSE  DO; 

FIELD1  =  $$OPCOM;   FIELD2  =  $$DONE; 
CALL  PRIMITIVE  RCEDATA  (FIELD4 , #GET , #XNA ME, 

CHAR  FIELE1, ERROR) : 
CALL  PRIMITIVE  RCBDATA  (FIELTJ4  ,  #G£I,  #PCTN  AM  , 

CHAR  FIELD2, ERROR) ; 
CALL  CREATE  RC3  (  ffPCT , CHAR  FTELD2  ,  MYN AME, FI ELD3 , 

FIELD6,  (•"■)  ,FIE1D4,  (0)  ,FIELD5, 
RCBNR,  ERROR)  : 
CALL  PRIMITIVE  RELEASE  (ANY PEOC, $OPR  10, MESSAGE, 

ERROR) ;   • 
FIELD1  =  $$kDD;  FIELD2  =  RCBNR; 

CALL  PRIMITIVE  RELEASE  (ANYPROC , $SPACE, MESS AGE, 

ERROR)  ; 
END: 
FIELD1,FIELD2,FIELD3, FIELD'*, FIELD5.FIELD6  =  0; 
CHAE<  cl  EL  D  1,CHAR_F  I  EL  D2,CHAR_FI  EL  D3  ,CHAR_FIELE<4 

ENLCASE; 

CASE  (3)  : 

/*   MESSAGE  FROM  A  PROCESS  TO  DO  A  FILE  OPEN, 

CLOSE,  DESIROY,  READ,  WRITE,  ETC.  */ 

CAII   ?ILE_0.fERATlON  CONTROLLER; 
FNECASF; 

END  OF  CASES; 

END;   "   " 

SIM  END 
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MESSAGE  INTERPRETER:  PROC  (I)  ; 

/*  lETFRMINE  which  process  did  a  release  on  $fileop 

AND  SET  THE  CASE  STATEMENT  INDEX  */ 

DCL  I  FIXED  BINARY: 

IF  (MESSAGE  ->  FIELD  1  =  $$OPCOM)  THEN  1=1: 

ELSE  IF  (MESSAGE  ->  FIELD1  =  $$INTPC)  THEN  1=2; 
ELSE  1=3; 
RETURN; 
END  MESSAGF_INIERPRETER; 

OF  COMM  MSG  HANDLER:  PROC: 

"V*  THIS  "SUBROUTINE  PERFORMS  SUCH  FUNCTIONS  AS  CREATING 
OR  DESTROYING  A  DEVICE  RC3  AND  AN  INTERFACE  PROCESS, 
UP  DATING  THE  PACK, TAPE,  ETC  MOUNTED  ON  THE  DEVICE, 
ANI3  DETERMINING  ACTION  TO  BE  TAKEN  ON  A  REPLY  TO  A 
USER'S  REQUEST  FOR  FILE  OWNERSHIP  ON  A  SHARED  FILE*/ 

DCL  (RXNAME, PXNAME)  CHAR  (8)  : 

DCL     (S    OR    P,  NEPGS,PRI,PINAME,RIWAME:,  CHILD, INTP.NR,  INDX) 
FTXEl)    BINARY; 

DCL  VALX  BIT  (1)  ; 

DCL  PGTABVECM)  FIXED  BINARY; 

DCL  STATE  VEC  (10)  FIXED  BINARY (3 1 ,0)  ; 

DCL  fiESVtC(SEM  L  LIMIT  :  PCT  U  LIMIT)  BIT  (2)  ; 

DCL  CUM  (16)  BIT  Hi; 

DCL  IEME  PTR  POINTER; 

DCL  11  FIXED  BINARY  INIT(1); 

/*  DETERMINE  ACTION  TO  BE  PERFORMED  AND  SET  INDEX  */ 
IF  (FIELD2  =  $$OPRTR)  THEN  INDX  =  1; 

ELSE  IF  (FIELD2  =  £$ADD)     THEN  INDX  =  2; 

ELSE  IF  (FIELD2  =  5SDELET)  THEN  INDX  =  3; 
ELSE  ERROR  =  309; 

DO_ACTICN  OF   CASE  (INDX); 

CASE (17:    /*  MESSAGE  FROM  OPERATOR  */ 

/*  ADD  CODE  */ 
ENDCASE; 

CASE  (2):    /*  ADD  A  DEVICE,  INTERFACE  PROCESS  AND 

PCT  IF  APPLICABLE  */ 

RXNAME  =  CHAR_FIELD1; 

/***  GET  DATA  REQUIRED  TO  CREATE  THE  INTERFACE 
PROCESS  AND  DEVICE  RCB  FROM  THE  DEVICE 
DIRECTORY.  ***/ 

CALL  DEVICE_DIRECTORY  (RXNAME, S  OR  P, PXNAME, 

NRPGS,PGTABVEC,PRI,INTRNR, VALX) ; 
IF  (VALX  =  FALSE)  THEN  DO; 
FIELD2  =  $$FAIL; 
CHAR  FIELD2  =  'BAD  NAME'; 

CALL~PRIMITIVE  RELEASE  (A  NYPROC,  $OPR  IC, 

MESSAGE, EEROri)  ; 
END; 
ELSE  DO; 

/***  CREATE  INTERFACE  PROCESS  ANE  SET  FAMILY 

LINKAGE.  ***/ 

CALL  PRIMITIVE  PCBD ATA  (M  YNAME,  a)  GET  ,  tfCHILP 

, CHILD, ERROR)  ; 
STATE  V£C(1)  =  PGTABVEC(1); 
STATE~VEC  (2)  =  1; 
CALL  GET  PC B (H YNAME. CHILD  -  EX NAME  ,  P PI /TRUE, 

STATE  VEC.PINAME,  (0)  .ERROR)  ; 
IF  (CHILD  -i=  0)  THEN 

CALL  PRIMITIVE  PCfiDAT A  (CHILD  .  c)PUT, 

~a)LE'TS  IB,  EI  NAME,  ERROR)  ; 
CALL  PRIMITIVE  PCBDAT A  (  M Y N AME, OPUT , 

3CHILD.PINAME. ERRCR) ; 
CALL  CREATE  RCB  (#DE VICE . RXNAME, P I N A  HE . (0) 
,S  OR  P,CHAR  FILLD2,INTRNK,  (U)  ,  (0)  , 
RlffAM'E,ERRORj'j 
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/*  SETUP  RESOURCE  VECTOR  FOR  PINAME  */ 

RESVEC  =  'OO'B* 

RESVEC (RINAME) '=  ##ACC£S; 

RESVEC (#FILEO?)  =  ##ACCES; 

RESVEC (SERROR)  =  ##ACCES; 

RESVEC  (SRFILEW)  =  ##ACCES; 

RESVEC ($WAIT)  =  ##ACCES: 

RESVEC($INTDEV)  =  ##ACCES; 

RESVEC ($INTEPT)  =  ##ACCES; 

RESVEC ($OBUFF)  =  #*ACCES; 

RESVEC (SIBUFF)  =  ##ACCES: 

CALL  PRIMITIVE  PCBDATA  (PINAME.oiPUT, 

a)RESVEC,SEM  L  LIMIT, PCT  U  LIMI1. 

RESVEC.ERROR"): 
CALL  PRIMITIVE  PCBDATA  (PINAME, 5)PUT , 

SBRMVEC,lT,NRPGS,PGTARV2C,ERROR) ; 

/***  GET  MESSAGE  EUFFER  FOR  THE  PROCESS     ****/ 
ALLOCATE  MESSAGE  BUFFER  SET  (TEMP  PTR)  ; 
CALL  PRIMITIVE  PCBDATA  (PINAME, 5)  PUT, 

~3MSGPTR,TEMP_PTR, ERROR)  ; 

/***  RELEASE  MESSAGE  TO  THE  PROCESS  IDENTIFYING 
THE  DEVICE  INTERNAL  NAME.  ***/ 

FIELD1  =  RINAME; 

CALL  PRIMITIVE  RELEASE  (PINAME , $INTDEV , 

MESSAGE,  ERROR)  ; 
/***  ENABLE  THE  DEVICE  INTERRUPT   ***/ 

CALL  PRIMITIVE  INTERRUPT  ENABLER  (IN2RNR , 

DUM)  ; 
NULP  =  NULL: 
/***  ENTER  THE  PROCESS  ON  THE  READY  'A'  QUEUE  */ 
CALL  RCBPUIQ  (#REDYA,#OS, PINAME,  (0)  ,EEI, 

NULP,  (6)  ,ERRCR)  ; 
IF  (CHAR  FIELD2  =  'NO  MOUNT M  THEN  EG: 
/*  RELEASE  MESSAGE  TO  OPERATOR  SYSTEM  COMM.  */ 
FIELD1  =  $$OPCOM; 
FIELD2  =  $$DONE; 

CALL  PRIMITIVE  RELEASE  (ANYPRCC,$CPR  IC 

, MESSAGE, EREOK)  ; 
END; 

ELSE  DO; 
/***  SEND  MESSAGE  TO  INTERFACE  PROCESS  TO  READ 

THE  FIRST  DIRECTORY  ENTRY.  ***/ 

FIELD1  =  $$DIRRD; 
FIELD2  =  1; 

ANSWER  REQUESI  =  TRUE; 

CALL  PRIMITIVE  RELEASE  (PINAM E, SRIILEW , 

MESSAGE, EtEOR) ; 
END; 
END; 
ENDCASE; 
CASE  (3)  :    /*  DELETE  A  DEVICE  AND  DESTROY  THE 

INTERFACE  PROCESS  */ 

CALL  FIND  INAME(#DEVICE,CHAR  FIELD  1 , RI NAME, 

ERROR)  ; 
CALL  PRIMITIVE  RCEDATA  (RINAME, i GET , #DI NAME, 

J.NTRNR, ERROR).  ; 
CALL  PRIMITIVE  INTERRUPT  DISENABLER  (IN1RNR , 

DDK)  ; 
/*  DETERMINE  FILES  ASSOCIATED  WITK  THE 
DEVICE  AND  THE  PCX;  DESTROY  RCE'S  */ 
ENECASE: 
END_OF  CASES; 
END  OP  COH«  HSG  HANDLER; 
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FILE  OPERATION  CONTROLLER:  PROC; 

DDL  (DATA, DuMMY, POSIT, FSIZE,INAME)  FIXED  BINARY 

DCL 

DCL  N 

DCL    FX"3AME  CHAR  (8) 


DATA,Dui'ii1Y/POSIT,FSIZE,INAME)  FIXED  BINAR 
EIMME,PINAME,READ  WRITE,  j)  FIXED  BINARY; 
0  OP  EIXED  BINARY  INITIAL  (0)  ; 


/***  DETERMINE  ACTION  AND  SET  INDEX   ***/ 
IF  (MESSAGE  ->  FIELD1  =  $$OPENF)  THEN  J  =  1 ; 


(MESSAGE  ->  FIELD1  =  $$READ>  | 
"(MESSAGE  ->  FIELD1  =  $$WRITE))  THEN  J  =  2: 
ELSE  IF  ^MESSAGE  ->  FISLD1  =  $$CLOSF)  THEN  J=3; 
ELSE  IF  (MESSAGE->FIELD1=$$DSTYF) THEN  J=4; 
ELSE  ERROR  =110; 


DO_ACTICN_OF   CASE  (J); 

CASZ(1):   /*  OPEN  FILE:  SHOULD  INCLUDE  SUCH  TrSTS 
AS;  LE5AL  FILE,  ACCESS.  DEVICE  STAIUS, 
READ  OR  WRITE  OPERATION,  IF  WRITE  AND 
FILE  OPEN  CAN'T  BE  SATISFIED  AT  THIS 
TIME  THEN  CHECK  FOR  POTENTIAL  DEADIOCK*/ 

/***  GET  FILE  INTERNAL  NAME   ***/ 

FXNAME  =  MESSAGE  ->  CHAR  FIELD1; 
CALL  FIND  INAME (#FILE,f XlAME, FINAME, EEROfi) ; 
CALL  FILE~ALLOCATOR (FINAM E, ##OPEN , RELEASOR , 

FIELD 2)   ; 


ENDCASE 


> 


CASE  (2):   /*   READ/WRITE  OPERATION:  CHECK  FILE 

EXISTANCE,  ACCESS,  AND  RELEASE  MESSAGE 
TO  THE  APPROPRIATE  DEVICE  INTERFACE 
PROCESS  */ 

FINAME  =  FIELD2   ; 

./*  CHECK  IF  MESSAGE  RELEASOR  DID  AN 

OPEN  ON  THIS  FILE.  -*/ 

CALL  RCB  FIND (FINAME, tLEFT, #FNDOP 1 . P02IT, 
RELEASOR, DATA, DUMMY, ERROR) ; 
IF  (POSIT  =  0)  THEN  ERROR  =  106; 

/*  VERIFY  IF  OPERATION  (READ/WRITE) 

REQUESTED  IS  LEGAL.  */ 

IF  ((FIELD1  =  ff#WRITE)  &  (DATA  =  ##EEAD)) 
ThEN  ERROR  =116; 
/*  GET  DEVICE  INTERNAL  NAME  AND  THEN 
THE  INTERFACE  PROCESS'S  INTERNAL 
NAME.  */ 

CALL  PRIMITIVE  RCBDATA  (FI NAME , tfGET , #DIN AME, 

DAT A,  ERROR)  ; 
CALL  PRIMITIVE  RCBDATA  (DATA , £GET, #CWNER , 
~  DATA  ERROR)* 

/*  RELEASE  A  MESSAGE  TO  THE  INTERFACE 
PROCESS  TO  PERFORM  THE  OPERATION.  */ 
FIELD4  =  RELEASOR; 
CALL  PEIHITIVE_RELEASE (DATA , SRFILE W , 

MESSAGE, ERROR) ; 
INECASE; 

CASE (3):   /*  CLOSE  FILE:   VERIFY  FILE  EXISTANCE, 
REMOVE  PROCESS  INAMji  FROM  FILE  RCB, 
CHECK  FOR  OUTSTANDING  OPENS,  I?  ANY 
SELECT  ONE  OR  MORE  AND  RELEASE  A  MESSAGE 
TO  THOSE  PROCESSES,  IF  NONE  CLOSE  THE 
FILE.  */ 

FINAME  =  MESSAGE  ->  FIELD2; 
PIN  AMI:  =  MiSSAGr.  ->  RELEASOR; 
CALL  FILE  ALLOCATOR  (FINAME,  KifCLUSE,  FINAME, 

NO  UP)  ; 
ZNCCASE; 
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CASE (4):;  /*  DESTROY  FILE:   PERFORM  TESTS  ON  LEGAL 
FILE,  ACCESS,  AUTHORIZED  TO  DESTROY, 
IF  ANY  PROCESSES  ARE  USING  OR  WAITING  TO 
USE  THE  FILE,  RELEASE  A  MESSAGE  TO  THE 
SUPERVISOR  FOR  EACH  PROCESS,  DESTROY 
FILE  RCB,  UP  DATE  MASTER  FILE  LIST,  UP- 
DATE FILE  DIRECTORY,  AND  SEND  MESSAGE  TO 
STORAGE  MEMORY  MANAGER.  */ 

DCL  PRO  VEC  (0  :  PCB  LIM)  EIT(1) 

INITIAL  "I(PCB  LIM  +1)   (1)   •  0  •  B)  ; 
FINAME  =  FIELD2; 
/***  GET  SIZE  OF  THE  FILE  AND  PCT  NAME   ***/ 

CALL  PRIMITIVE  RCBDATA  (FI NAME, #G£T , #C KT  SZ, 

FSIZE, ERROR) : 
CALL  PRIMITIVE  RCBDATA  (FI NAME, #GET , #PCTNAM, 

FXNAME,ERROR)  ; 
CALL  FIND  INAHE(#PCT#FXNAME,INAHE,EBBCR)  ; 
CALL  DESTROY  RCE  (FINAME, RELEASOR,  PRO  VEC, 

ERROR)  ; 
/*  RELEASE  MESSAGE  10  SUPERVISOR  FOB 
EACH  PROCESS  THAT  WAS  QUEUED  UP  CK 
THIS  FILE.  */ 

IF  (PRO  VEC  (0) )  THEN 

DO    I~=    1    TO    PCB    LIM; 

IF     (PRO    VEC(T))     THEN    BO; 


o?IEXD"3    =    I. 
ERROR    =    118; 


END; 


END; 

/*  GET  SPACE  AVAILABLE  IN  PCT  ANB  UPDATE  II  */ 
CALL  PRIMITIVE  RCBDATA  (INAME  ,  #GET , #CN1  SZ, 

DATA, ERROR) ; 
DATA  =  DATA  +  FSIZE" 

CALL  PRIMITIVE  RCBDATA  (I NA ME ,#PUT , #CN1  SZ, 

DAT A, ERROR) : 

/*  RELEASE  MESSAGE  TO  UPDATE  DIRECTORY  */ 
FIELD1  =  $3DISDL; 
FIELD2  =  FINAME; 
FIELD3  =  FSIZE; 
CALL  PRIMITIVE  RCBDATA  (INAME , #GET , #DI KAME, 

FINAME, ERROR) ; 
CALL  PRIMITIVE  RCBDATA  (FI NAME, frGET , *OKMEB, 

FINAME, ERROR) ; 
CALL  PRIMITIVE  RELEASE (FIN AME, $RFILEW , 

MESSAGE, ERROR)  ; 

/*  INFORM  SPACE  MANAGER  OF  THE  CHANGE  IN 
SPACE  AVAILABLE  FOR  FILES.        */ 
FIELD1  =  SSADD; 
FIELD2  =  INAME; 
FIELD3  =  FSIZE; 

CALL  PRIMITIVE  RELEASE (AN YPROC, $SPACE , 

MESSAGE, ERROR) ; 
ENDCASE; 

end  of  cases;  return; 
end  fiIe  Operation  controller; 
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FILE  ALLOCATOR:  PBOC (FINAME, OPERATION, PINAME, TYPE) ; 

/*~*  ************************** 

THIS  SUEROUTINS  DETERMINES  IF  A  PROCESS  CAN  HAVE  ACCESS 
TO  A  FILE,  IF  ACCESS  IS  DELAYED,  DOES  A  DEADLOCK  EXIST 
OR  CAN  IT  OCCUR;  IF  A  FILE  IS  CLOSED,  ARE  THERE  OUT- 
STANDING REQUESTS  FOR  THE  FILE  AND  IF  SO  SATISFIES 

DCL  (OPERATION, FOUND, Q  EMPTY, BDATA)  BIT(1); 
DCL   DUMMY  FARM   FIXED~BINARY  INITIAL  (0); 
DCL  •  BUMtY^PTR   POINTER  : 
DCL  ( FIN A M2, PI N AM E, T Y FE. FSTAT, PRI, TFRI, 1ST AT, 

PRIVATE, DATA)  FIXED  BINARY; 
DCL   TOFELEM  FIXED  BINARY  INITIAL (1); 
DCL   FILE  (1)  BIT  (2)  ; 
DCL  IFIT2  EIT(2); 
DCL  CDATA  CHAR  (8)  ; 
DUMMY  PTE  =  NULL; 
FOUND"-  FALSE; 

CALL  PRIMITIVE  PCBDATA (PI  NAME, &GET ,SRESVEC, FIN AME, 

"  FINAME  FILE  ERROR)  * 

CALL  PRIMITIVE  RCBDATA (FINAME, #GET r#s'03  P, PRIVATE  , 

"""  F1  T?  R  f)  ri  ^  ' 

IF  (OPERATION  =  #fOPEN)  THEN  DO;     /*  OPEN  FILE  */ 
/***  CHECK  ACCESS  AUTHORIZATION   #**/ 
IF  (FILE(1)  -.=  ##ACCES)  THEN  DO;  ERROR  =  109;  RETURN; 

END; 
/***  CHECK  IF  THE  FILE  CAN  BE  OPENED   ***/ 
CALL  PRIMITIVE  EC EDATA  (FINAME, #GET, #DSTAT, BDATA  , 

ERROR)  ; 
IF  (BDATA  =  ##HOLD)  THEN  DO;  ERROR=113;  RETURN;  END; 
CALL  PRIMITIVE  PCBDATA  (PI  NAME,  a)GET  ,  3PRIRTY,  PRI , 

ERROR)  ; 
/***  ASSIGN  THE  FILE  TO  THE  PROCESS   ***/ 
FILE(1)  =  ##ACQRD; 
CALL  PRIMITIVE  PCBDATA  (PI  NAME,  a;PUT,  o)RES VEC,  FINAME, 

FINAME, FILE, ERROR) ; 
IP  ((TYPE  =  ##WRITE)  &  (PRIVATE  ^    ##SHRD))  THEN  DO; 
/***  WRITE  ACCESS  INTO  SHARED  FILE:  CHECK 

OWNERSHIP  ***/ 

CALL  PRIMITIVE  RCBDATA  (FINAME, #GET, ffOWNER , DATA , 

F  R PO  R \   * 
IF  (DATA  -i=  PINAME)  THEN  DO: 

/***  NOT  OSNER:  PUT  ON  QUEUE  AND  RELEASE  ERROR 
MESSAGE  TO  THE  OPERATOR  ***/ 

CALL  BCBPUTQ (FINAME, #SIGHT, PINAME, DUMMY  PARMr 

PRI, DUMMY  PTE,##WRITH, ERROR)  ; 
ERROR  =  112;  RETURN;   "END; 
/***  AUTHORIZED  ACCESS:  UPDATE  WRITE  COUNTER  **/ 
CALL  PRIMITIVE  PCBDATA (PINAME, 3PU1 ,2PWCNTB, DATA, 

ERROR) ; 

END; 
CALL  PRIMITIVE  PCBDATA  (PI  NAME, 3GET, 3FSTAT , TSTAT  , 

ERROR)  ; 
IF  (TSTAT  =  ##SACR)  THEN  DO; 

/***  PROCESS  IN  SACRIEICE  STATE  ***/ 
CAIL  DEADLOCK  SETTER  (FIN AME, PINAME  ,  PRI ,TYPE , TSTAT, 

PRIVATE)  ; 
RETURN;  END; 

IF  ((ISTAT  =  ##R£ADRJ  8  (TYPE  =  fr#WRITE)  & 
(PRIVATE  =  s&SHRD))  THEN 

/***  UPDATE  PROCESS'S  FILE  ACCESS  STATUS   ***/ 
CALL  PRIMITIVE  PCBDATA  (PINAME,  cjPUT  ,a)FSTA  T  ,##  ViRITE  , 

ERROR) ; 
/***  DETERMINE  IF  THE  FILE  IS  AVAILABLE    ***/ 
CALL  PRIMITIVE  EC LDATA  (F IN AME, #GLT, #OEILE, F STAT  , 

ERROR)  ; 
IF   (PSTAT  =  *#AVAIL)  THEN  DO; 

/***  FILE  AVAILABLE:  ASSIGN  THE  PROCESS,  EKTER 
PROCESS  IN  THE  QUEUE  AND  RELEASE  A  MESSAGE 

**  */ 
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CALL  PRIMITIVE  RCBDATA  (FINAME, #PUT, #OFILE , TYPE, 

ERROR) ; 
CALL  RCBPUTQ  (FINAME, #LEFT, PINAME, DUMMY  PARM,ERI, 

DUMMY  PIR,TYP£, ERROR) ; 
CALL  PRIMITIVE  RCBBATA  (PINAME, #GET , #XNAME , CDATA, 

ERROR): 
MESSAGE  ->  CHAR  FIELD1  =  CDATA; 
MESSAGE  ->  FIELT31  =  FINAME; 

CALL  PRIMITIVE  RELEASE  (PIN AME, MSG  SEMAPHORE, 

MESSAGE, ERkOR)  ; 
END; 
ELSE  CO: 

/***  FILE  ALL  READY  OPENED   ***/ 
IF  ((TYPE  =  4SWRITE)  |   (TYPE  -«=  FSTAT)  )  THEN  DO; 
/***  ACCESS  NOT  AVAILABLE  AT  THIS  TIME   ***/ 
CALL  DEADLOCK  SETTER  (FIN AME, PINAMErPRI ,TYEE, 

TSIAT, PRIVATE)  ; 
RETURN "  '  END  * 

/***  ACCESS  MAY  BE  AVAILABLE;  CHECK  OUTSTANDING 
OPEN  QUEUE  AND  PERMIT  THIS  OPEN  IF  QUEUE 
IS  EMPTY  OR  THE  PRIORITY  OF  THIS  PROCESS 
IS  GREATER  THAN  THE  PRIORITY  OF  THE  PROCESS 
ON  TOP  OF  THE  QUEUE  ***/ 

CALL  RCB_FIND  (FINAME, I  RIGHT, #FNDOP5 , IOPELEM, 

DUMMY  PARM, DUMMY  PARM, TPRI , ERROR) ; 
IF  (PRI  <  TPRI)  THEN 

CALL  RC3PUTQ  (FINAME, # RIGHT, PINAME , DUMMY  PARM, 
PRI, DUMMY  PTR, TYPE, ERROR) ;~ 
ELSE  DO; 

CALL  ECBPUTQ (FINAME, #LEFT , PIN AME, DUMMY  PARM, 

PRI, DUMMY  PTR,TYPE,EREOR)T 
CALL  PRIMITIVE  RCBDATA1PI NAME , #GET, #XNAME , 

CDATA, ERROR) ; 
MESSAGE  ->  CHAR  FIELD!  =  CDATA; 
MESSAGE  —  >  FIELD"  1  =  PINAMF" 

CALL  PRIMITIVE  RELEASE (PINAME, MSG  SEMAPHORE, 

MESSAGE, EREOR) ; 
END  ; 
END; 
RETURN; 
END; 

ELSE  DO;  /*   OPERATION  IS  CIOSE  FILE   */ 

/***  REMOVE  THE  PROCESS  FROM  THE  QUEUE  AMD 

DETERMINE  IF  ANY  OUTSTANDING  REQUESTS  FOR 
OPEN  CAN  BE  SATISFIED  ***/ 

IF  (  (FILE(1)  =*#ACCES)   |   (FILE  (1)  =ir#NOACC)  )  THEN  RETURN; 
IF  (FILE(1)  =  ##ACQRD)   THEN 

CALL  RCBGEIO  (FINAME,  #LEFT,  PIN  AI'E,  DUMMY  PARM, 


IF 


RCBG  EIO  (FI N AM  E, #LEFI , PIN  AM E , DUMMY  PARM , 

DUMMY  PTR, DATA, FOUND, G  EMPTY, ERROR) ; 


((-^JCUND)   I   (FILE(T)  =  ##SACRF))  THEN 
CALL  RCBGETQ  (FINAME, #RIGHT, PINAME, DUMMY  PARM 
DUMMY  PIR, DATA, FOUND, Q  EMPTY, ER 


IF  (((DATA  =  ##WRITE)   |   (DATA  =  ##WRIl!) 

(D/~ 


RCR)  ; 


(LATA    =    #ffWRITA)      |      (DATA    =    #SHRITSj  ) 

(private  =  ##shrdj)    then  do; 
~~idat/ 


CALL  PRIMITIVE  PCBDATA  (PINAME , JGET, 3FWCNTR , DATA  , 

ERROR)  ; 
IF  (DATA  =  0)  THEN  CALL  PRIMITIVE  PCBDATA  (PI  NAME, 

a)PUT,5)FSTAT/##5£ AD, ERROR)  ; 
TBIT2  =  FILEM):   FILE(1)  =  ##ACCES: 
CALL  PRIMITIVE  PCBDATA  (PINAME,  a)pUT,  a)RESVEC,FI  NAM  E, 

FINAME  FILE  ERROR)  ■ 
IF  ((Q  EMPTY  =  FALSE)   j  (-.FOUfiD)   |'(TBIT2'=  ##SACHF)  ) 

1HO  RETURN; 
CALL  PRIMITIVE  RCBDATA  (f IN AME, # PU ] , # OFILE , ## AVAII , 

ERROR) ; 
DUMMY  PARM  =  0; 

CALL  T5ESOLVE  DEADLOCK  (FINAME, DUMMY  PARM); 
END; 
RETURN; 
END  FILE^ALLOCATOR; 
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ARM 


RESOLVE  DEADLOCK:  PROC (RCBNR , EXEMPT  PRO); 

THIS  SUBROUTINE  TESTS  IF  ANY  OUTSTANDING  OPEN  REQUESTS 
CAN  EE  SATISFIED,.  IF  A  SACRIFICE  HAS  OCCURRED  AND  THE 
FILE  IS  AVAILABLE-,  CAM  THE  PROCESS'S  SACRIFICED  FILES 
EE  RE-ASSIGNED,  ETC.  ********#/ 

DCL  (S1ARTING, RQ  STAI,LQ  STAT,XFERED)  BIT(1) 
DCL  (ELEi'., RC3Na,?INAM,DA7A,PRI,FSTAT,  DUMMY  P 

POSIT, EXEMPT  PRO)   FIXED  BINARY; 
DCL   CDAIA  CHAR  (8f ; 

DCL   FILES  (FILE  L  LIMIT  :.  FILE  U  LIMIT)  EIT  (2)  ; 
STARTING  =  TRUET  ~ 
ELEM  =  Is 
DO  FGEEVER; 
TOP: 

/***  GET  THE  TOP  ELEMENT  ON  THE  OUTSTANDING 

QUEUE  ***/ 

CALL  RCB  FIND  (RCBNR, #RIGHT,#FNDOP5,EIEM,PINAM,DaTA, 

PRI, ERROR) ; 
ELEM  =  ELEM  +  1; 
IF  (DATA  =  0)  THEN  RETURN;   /*  R„QUE  IS  EMPTY  */ 

IF  ((DATA  =  ##READ)  |   ((DATA  =  ##WRIIE)  S  STARTING)) 
THEN  DO;         /*  OPEN  REQUEST  NOT  SACRIFICED 

TRANSFER  TO  OPEN  QUEUE  AND 
RELEASE  MESSAGE  10  PROCESS  */ 
STARTING  =  FALSE: 
CALL  RCB  TRANSFERQ  (RCBNR, BRIGHT, PINAM,RQ  STAT, 

LQ    STAT, XFERED, ERROR) J 
CALL  PRIMITIVE  RCBDATA  (RCBNR,  i?  PUT,  tfOFILE  ,  DATA, 

ERROR) ; 
CAIL  PRIMITIVE  RCBDATA  (RCBNR,  *GET  ,  ifXNAME  ,  CDATA  , 

ERROR) ; 
MESSAGE  ->  CHAR  FIELD1  =  CDATA; 
MESSAGE  ->  FIELI31  =  ECBNR; 

CALL  PRIMITIVE  RELEASE  (PJ.NAM,  $WAIT  ,  MESSAGE,  EERGR)  ; 
IF  (  (DATA=##WfiIIE)  J  (BQ  STAT=tf*  CLOSE)  )  THEN  RETURN; 
END; 

ELSE  DO;  /*  OPEN  REQUEST  SACRIFICED  */ 

IF  (--STARTING  &     (-.  (  (DATA=##READA)  J  (EATA=##BEAES)  )  )  ) 

TEEN  RETURN;  ' 

/#  TEST  SACRIFICED  OPEN  REQUESTS  FOE 
READ  OR  WRITE  IF  MO  TRANSFER  WAS 
MADE  ABOVE;  ELSE  ONLY  TEST  READS.   */ 


END; 
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/*  GOT  HEHE  - —  TRANSFER  THIS  PROCESS'S 
OUTSTANDING  OPEN  REQUESTS  AND  RELEASE 
MESSAGES  TO  THE  PROCESS  WHEN  REQUIRED 

V 

ECL  IDATA  FIXED  BINARY; 
ISTAT  =  *#RZADR; 

DO  I  =  FILE  L  LIMIT  TO  FILE  U  LIMIT; 
IF  (FILE3~[I7  =  ##SACRF)  THEU  DO; 


CALL  RC3  TRANSFERQ  (I, #RIGHT . PINAM, RQ  STAT, 

LQ    STAT,XFE~ 
CALL  RCB  FIND  (I , #LEFT7# FNDOP 1  , 
DATA, FRI, ERROR)  ; 


LQ    STAT,XFERED,ER'EOR)  ; 
:FT7# FNDOP  1  ,  POSIT, PINAM, 


IF  ((DATA  =  ##READA)  J   (DATA  =  ##READS) )  THEN 
IDATA  =  ##READ;  ELSE  DO;  IDATA  =  ##WJ5ITE; 

FSTAT  =  ##WRITR;  END; 
CALL  PRIMITIVE  RCEDATA (I , ffPUT , #OFILE , IDATA, 

EhROfi)  ; 
CALL  RCB    FIND  (I, #LEFT,#Fi.'DOPii, POSIT, PINAM, 

IDATA,  PRI, ERROR); 
IF  ((DATA  =  ##READA)   |   (DATA  =  £#WEITA)  )  THEN 
DO ; 

CALL  PRIMITIVE  RCBDATA  (I , # GET , #XN AME, 

CDATA, ERROR) ; 
MESSAGE  ->  CHAR  FIELD1  =  CDATA; 
MESSAGE  ->  FIELT31  =  I; 
CALL  PRIMITIVE  RELEASE  (PINAM, SWAI1, 

MESSAGE, ERBOE)  ; 
END; 
FILES (I)  =  ##ACQRD; 

END; 
IND; 
CALL  PRIMITIVE  PCBDATA  (PINAM  ,  SPUT,c)RES  VEC  , 

FILE  L  riMII,FILE  U  LI  MIT, FILES , ERRCR)  ; 
CALL  PRIMITIVE  PCBDATA  (PTNlll  ,  o)PUT,d)FSTAl  ,FSIAT, 

IND; 
END; 
END; 
END  RESOLVE  DEADLOCK; 
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DEADLOCK  SETTER:  PROC (FINAME, PINAME, PRI, TYP E, STAT, 

SHAR  PRIV) ; 
/*  **********  *~*  **********  ***** 

THIS  SUBROUTINE  TRANSFERS  ALL  OF  THE  FILE  OPEN  REQUESTS 
FOR  THE  PROCESS  (PINAME)   10  THE  OUTSTANDING  QUEUE  AND 
SETS  THEIR  STATUS  TO  ##READH  OR  ##WRITH  ACCORDINGLY. 
IF  A  FILE  BECOMES  AVAILABLE  ,  DEADLOCK  RESOLVER  IS 
INVOKED  ***/ 

DCL  SEAR  PRIV  FIXED  BINARY: 

DCL  (EINIME.PINAMEjPRI, TYPE. STAT)  FIXED  BINARY, 
CAS  INDX  FIXED  BINARY  (3)  , 
(LQSIAT,RQSTAT, TRANS)  BITjM)  , 
(OP,POS,FSTAT,C?RI,DATA)  FIXED  BINARY, 
CHEKK  (FILE  L  LIMITzTILE  U  LIMIT)  BIT(1), 
DUMMY  PARM  HYED    BINARY  TNlT  (0)  , 
EUMEY~PTR   POINTER  ; 
DUMMY^PIR  =  NULL; 

/*  DETERMINE  NECESSARY  ACTION  */ 

IF  (SHAR  PRIV  =  ##PRIV)  THEN  0?=1:  ELSE  OP  =  STAT: 
IF  ((SHIR  PRIV  =  ##SHRD)  &     (  TYPE  =  ##KEITE))  THEN  DO; 
CALL  "PRIMITIVE  PCBDATA  (PINAME,  £GET,  o-FWCNTR  ,  DAT  A, 

ERROR) ; 
DATA  =  DATA  +1; 

CALL  PRIMITIVE  PCBDATA  (PINAME, 3PUT ,3FWCNTR , DAT A, 

ERROR) ; 
END: 
DO_ACTION_OF  CASE  (OP)  ; 

CASF(1):  /*  PROCESS  HAS  NOT  OPENED  A  SHARED  FILE  ON 

A  WRITE  */ 

IF  (TYPE  =##E£AD)  THEN  CAS  INDX  =  1; 
ELSE  CAS  INDX  =2; 
ENECASE; 

CASE  (2):  /*  PROCESS  HAS  OPENED  A  SHARED  FILE  ON  A 

WRITE  AND  IS  NOT  CURRENTLY  SACRIFICED   */ 
CAS  INDX  =  2; 
ENECASE; 

CASE  (3):  /*  PROCESS  IS  CURRENTLY  SACRIFICED         */ 

CAS  INDX  =3; 
ENECASE; 

END_CF_CASES;  / 

DO_ACIION_OF  CASE(CAS_INDX) ; 

CASE(1):  /*  READ  ACCESS  REQUESTED  -  NO  SACRIFICE 

CONDITION  V 

CALL  RCBPUTQ (FI NAM E, #RIG HT, PINAME, DUMMY  EARN, 
PRI, DUMMY  PTR, TYPE, ERROR)  ;"* 
ENECASE; 

CASE  (2):  /*  SACRIFICE  ALL  OF  THIS  PROCESS"  FILES    */ 
BEGIN: 


CHEKK  (I)  =  FALSE: 

IF  ((FILES  (I)  =  ##ACQRD)  &     (I  -=  PINAME)) 

THr-N  DO; 

FILES(I)=  ##SACRF; 
CALL  RCB  TRANSFER^  (I, MEET, PINAME, LQSTAT, 
ixQSIAT, TRANS, ERROR)  ; 
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/*  RESET  DATA  IF  THE  OPEN  QUE  IS  EMPTY 

AMD  SET  CHECK  TO  INDICATE  THE  FILE  KAY 
BE  REASSIGNED  */ 

IF  (LQSTAT  =  *#CLGSE)  THEN  DO; 

CALL  PRIMITIVE  RCBDATA  (FINASE, ifPUT , 

#OIILE,#?AVAIL, ERROR)  ; 
DATA  =  0 • 
CALL  PRIMITIVE  RCBDATA  (FINAME, #PUT , 

#0WBEB,D3TA,ERB0B) ; 
CHEKK(I)  =  TRUE; 
END: 
CALL  RCB  FIND(I,#RIGHT,#FNDOP1,POS, PINAME, 

FSTAT. CPRI, ERROR); 
/*  CHANGE  THE  PROCESS'  OPERATION  STATUS 
ON  THE  QUEUE,  IF  NECESSARY  */ 

IF  {(FSTAT  >  0)  6  (FSTAT  <=2)  )  THEN  EO; 
DO_ACIION_OF  CASE  (FSTAT)  ; 

CASE(1):  /*  CURRENTLY  BEAD  */ 

IF  (TRANS)  THEN  FSTAT  =  ##READS  ; 
ELSE  FSTAT  =#tREADA; 
ENDCASE; 

CASE  (2):  /*  CURRENTLY  WRITE         */ 
IF  (TRANS)  THEN  FSTAT  =  ##WRITS; 
ELSE  FSTAT  =  ##WRIIA; 
ENDCASE: 
END  OF  CASES; 
CALL  RCB  FIND  (I, ff RIGHT , #ENDOP2 , POS , 

PINAME, FSTAT, CPEI,  ERROR)  ; 
END; 
END;  /*  END  IF  ACQUIRED  */ 
END;  /*  END  DO  LOOP  */ 

/*  SET  THE  PROCESS'  STATUS  TO  SACRIFICED    */ 
CALL  PRIMITIVE  PCBDATA  (PINAME, SPOT, SPSIAI , 
##SAtR, ERROR)  ; 
CALL  PRIMITIVE  PCBDATA  (PINAME ,5)PUT, SEES VEC, 
FILE  L  LIHIT,FILE  U  LIMIT, FILES , ERROR) ; 
/*  NOW  ENT"EE~THE  FILE  TO  IE  OPENED  IN 

SACRIFICE  STATUS  -  ANSWER  REQUIRED       */ 
GO  TO  CASE  (3)  ; 
END; 
ENECASE; 

CASE  (3):  /*  ENTER  THE  FILE  TO  BE  OPENED  IN  SACRIEICE 
STATUS,  ANSWER  REQUIRED   */ 
IF  (TYPE  =##3EAD)  THEN  FSTAT  =##BEADA; 

ELSE   FSTAT  =  ##tfRITA" 
CALL  RCBPUTQ (FINAME, BRIGHT, PINAME, DUMMY  EARM, 

PHI, DUMMY  PTR, FSTAT, ERROR) ; 
DCL  FILES  (1)   BIT(2)  ;   ~ 
FILESM)  =  #4SACEF: 

CALL  PBIHITIVE  PCBDATA (PIN AME , aPUT, cDRESV EC , 
FINAMT,FINAME, FILES, ERROR) ; 
ENDCASE; 
END_OF_CASES; 

/*  ASSIGN  THE  EILES  THAT  HAVE  BECOME  AVAILABLE  */ 
DO  I  =  FILE  L  LIMIT  TO  FILE  U  LIMIT: 

IF  CHEKK  (T)  "THEN  CALL  RESOLVE  DEADLOCK  (I,  PIN  AME)  ; 
END: 
END  DEAELOCK_SETTER; 

END   FILE  MANAGER; 
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MODULE  SPECIFICATION 

NAME:   FILE  SPACE  MANAGER  TYPE:   PROCESS 

PAR AMETEBS 

INPUT OUTPUT TYPE CONTENTS ^_ 

Not  Applicable:  All  communications  handled  via  message: 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 
NAME PJR  A  METERS PURPOSE 


Reguest    Process  I-faame,  a)  $Space  -  Semaphore  used  to 

Semaphore,  identify  messages  for  this 

Message  Pointer,  process. 
Error  Parameter 

Release    Process  I-Hame,      a)  $Rfilew  -  Semaphore  used  to 
Semaphore,  send  messages  to  an  inrer- 

Message  Pointer,        face  process  to  up- 
Error  Parameter        date  the  directory. 

b)  $XXXXXX  -  Semaphore  used  to 
send  a  message  to  the  pro- 
cess reguesting  a  file. 

c)  $Error  -  Semaphore  used  to 
send  messages  to  the  Error 
Handler. 

PCBData   Process  I-Name,      Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  enter  or 
Field  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 

PCBData    Process  I-Name,  Generic  entry  point  to  PCB 

Put/Get  identifier.  Structures  module  to  enter  or 

Field  Identifier,  obtain  data  or  portions  cf  the 

Vector  Lower  Limit,  data  stored  as  a  vector  (i.e.. 

Vector  Upper  Limit,  Resource  Access  Vector,  Eage 

Vector  Parameter,  Table  Vector,  etc.). 
Error  Parameter 

RCBPata    Resource  I-Name,     Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  to  enter  cr  get 
Field  Identifier,    data  concerning  a  resource. 
Data  Parameter, 
Error  Parameter 

RCBPUIQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

Left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  on  a  specified 

Data  Parameter,  resource  queue  by  priority. 

Priority,  Queues  used  by  this  process 

Message  Pointer,  are  the  message  semaphore  and 

Data  Parameter,  the  PCT  gueues. 
Error  Parameter 

Find       Resource  Type,       Entry  point  to  RCB  Handler 
I-Name     Recourse  X-Name,     used  to  get  the  internal  naue 
Resource  I-Name,     for  the  resource  specified  by 
Error  Parameter      type  (file,  device,  etc.)  ana 

external  name. 
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Create    Resource  Type, 
RCB        Resource  X-Name, 
Resource  Owner. 
Sz-Cntr  Parameter, 
Access  Identifier, 
PCI  Name, 

Dev/Int  Identifier, 
rile  Descriptor, 
File  Descriptor, 
Resource  I-Narae, 
Error  Parameter 

RCBGETQ    Resource  I-Name, 
Left/Right  Queue, 
Process  I-Name, 
Q_Data  Parameter, 
Message  Pointer, 
Q_Eata  Parameter, 
round  Boolean, 
Q  Status  Boolean, 
Error  Parameter 

RCB-Find  Resource  I-Name, 
Left/Right  Queue, 
Find  Operation, 
Queue  Position, 
Process  I-Name, 
Data  Parameter, 
Data  Parameter, 
Error  Parameter 


Entry  point  to  RCB  Handler 
used  to  create  an  RCB  cf  the 
type  specified;  enter  descrip- 
tor data  in  the  appropriate 
RCB  fields;  and  return  the 
resource  internal  name.  Not 
all  fields  are  used  by  each 
type  of  resource. 


This  entry  point  to  RCB  Hand- 
ler is  used  to  remove  a  pro- 
cess from  the  specified  gueue 
for  the  indicated  resource. 
The  data  stored  in  the  queue 
are  returned  if  the  process  is 
round  and  the  gueue  status  is 
also  provided. 


This  entry  point  to  RCB  Hand- 
ler is  used  to  determine  gueue 
position  of  a  process  and  put 
or  get  a  copy  of  data.  The 
process,  position,  or  loth  may 
be  specified  tc  select  a  spe- 
cific process,  any  process  at 
the  specified  position  or  a 
specitic  process  at  a  speci- 
fied position. 


EXTERNAL  CAI1S  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Not  applicable  for  processes. 


DATA  STRUCTURES  USED 


NAME 


Message 
Buffer 


EIELD 


.TYPE PUKP^SE/VALUES 

Based 


Releasor   Integer 

Answer-    Bit  (1) 
Reguest 

Message-   Integer 
Secaphore 


Buffer- 
Location 


Dynamically  allocated,  pointer 
qualified  structure  used  for 
passing  messages. 

Internal  name  of  process 
releasing  a  message. 

Boolean  indicating  if  answer 
reguired. 

Semaphore  to  be  used  in  the 
answer. 


Pointer    Not  used  by  this  process-. 


121 


Fieldl     Integer    a)  $$ADD  or  SiDELET  -  Message 

from  File  Manager  indica- 
ting that  a  device  has  been 
added  or  deleted. 

b)  $$SPACE  -  Message  from  File 
Manager  indicating  that  a 
file  has  been  destroyed. 

c)  $$PERMF  or  3$TEMPF  -  Mes- 
sage to  create  a  permanent 
or  temporary  file. 

■  d)  $$EXTNT  -  Message  for  a 
file  extention. 

Field2     Integer    a)  PCT  internal  name  -  Identi- 
fies the  PCT  which  was 
added  or  deleted,  or  en 
which  a  file  was  destroyed. 
b)  $$SHRD  or  $$PRIV  -  Identi- 
fies the  file  access-type. 

Field3     Integer    File  space  requested. 

Field4-6   Integer    Not  used. 

Char-      Char (3)    Identifies  file  external  name* 
Fieldl 

Char-      Char (8)    Identifies  PCT  external  name. 
Field2 

Char-      Char  (8)    Not  used. 
Field3-U 


MODULE  DESCRIPTION 


File  Space  Manager  has  been  implemented  to  perform  file 
creation  as  an  independent  system  function.  It  fields  re- 
guests  for  file  creation,  determines  type,  access,  location, 
if  specified,  and  availability  of  space.  If  a  permanent  file 
is  requested  on  a  specified  PCT  and  space  is  not  available 
an  error  condition  is  raised  which  terminates  the  process. 
For  temporary  files,  a  dummy  file  is  created  until  space 
becomes  available  and  then  a  message  is  released  to  the  pro- 
cess requesting  the  file. 
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M Of) U L E_ I B PL E M EN TA TI 0 N 

55INCLUDE  NAMCHGR;   /*****  FILE  SPACE  MANAGER   ****/ 
(CHECK  (ERROR)  )  : 

FILE_SPACE_M-ANAGER:  PROC  OPTIONS  (MAIN)  ; 

55INCLUDE  SIMULTR; 

SIM_START(PROCESS_FILE_SPACE_MANAGER) 

^INCLUDE  GENCEC; 

^INCLUDE  BEQRELD; 

5.INCLUDE  ECBECL; 

^INCLUDE  PCBECL; 

^INCLUDE  CASESTM; 

DCL  (INAME,FDATA,I)   FIXED  BINABY; 

DCL  SPACE  VECiPCI  L  LIMIT  :  PCT  U  LIMIT)  BIT(1): 
DCL   CUT  SPACE  RE<3  FIXED  BINARY~ST ATIC  INITIAL (0) ; 
DCL   ESTAI  BIT71) ; 

DCL   ERRCB  FIXED  BINARY   INITIAL  (0)  ; 
ON  CHECK  (ERROR) 
BEGIN; 

IF  (ERROR  -■=  OV  THEN  DO; 

JIELD1  =  RELEASOR;   MSG  SEMAPHORE  =  $SPACE; 
FIELD2  =  ERROR; 
(NOCHECK  (ERROR)~)  :  BEGIN;   ERROR  =  0; 

CALL  PRIMITIVE  RELEAS E  (ANYPROC,$EEROR, 
MESSAGE, EEROR) ;  END; 

GO  TO  START; 

END; 
END; 

^INCLUDE  RRMSG; 

START: 

DC  FOREVER: 

CALL  PRIMITIVE_REQUEST (AN YPROC, $SPACE, MESSAGE, ERRCR) ; 

SIM_INIERRliPT_PT 

CALL  MESSAGE_INTERPRETER; 

DO  ACTION  OF   CASE  (I)  : 

"CASE  (17:    /*  SPACE  MODIFICATION  FROM  FILE  MANAGER 

A  DEVICE  HAS  BEEN  ADDED  OR  DELETED   */ 
IF  (FIELD  1  =  SSDELET)  THEN 

SPACE  VEC(EIELD2)  =  FALSE; 
ELSE  DO;  "SPACE  VEC(FIELD2)  =  TRUE; 

IF  (OUT  SPACE  REO  -.=  0)  THEN 

CALL  SPACE  RESOLVES (FIELD2) ; 
END; 
ENCCASE; 
CASE (2):    /*  SPACE  FREED  BY  FILE  MANAGER;  I.E., 

A  FILE  WAS  DESTROYED.  */ 

IF  (OUT  SPACE  RLQ  -.=  0)  THEN 

"CALL  SPACE  RESOLVER (FIELD2) ; 
EHECASE; 
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CASE(3):    /*  SPACE  REQUESTED  FOR  PERMANENT  FILE, 

DEVICE  SPECIFIED  BY  EXTERNAL  NAME.  */ 
/*  GET  INTERNAL  NAME,  IF  NOT  FOUND  ERROR 
CONDITION  IS  SET  IN  PRIMITIVE.      */ 
CALL  FIND  INAM£(#PCT, CHAR  FIELD2, INAME, 

ERROR)  ; 
/*  CHECK  DEVICE  STATUS   IF  IN  HOLD  SET 

ERROR;  I.E.,  NO  FILE  CAN  BE  CREATED  */ 
CALL  PRIMITIVE  RCBDATA  (IN AME , #GET, #DST AT , 

ESTAT, ERROR) : 
IF  (BSTAT  =  ##HOLD)  THEN  ERROR  =  113; 

/*  STAT  IS  GO;  CHECK  IF  PERMANENT  FILES 
CAN  BE  CREATED  ON  THIS  UNIT.         */ 
CALL  PRIMITIVE  RCEDATA  (INAME ,#GET, #OFIIE , 

FDATA,  ERROR)  : 
IF  (FDATA  =  ##TEMPF)  THEN  ERROR  =  114; 

/*  NOW  CHECK  SPACE  AVAILABLE;  IF  SPACE 
NOT  AVAILAELE  SET  ERROR  CONDITION   */ 
CALL  PRIMITIVE  RCBDATA  (INAME , #GET, #CHT  SZ, 

—  FDATA  ERROR)  •   — 

IF  (FIELD3  >  FDATA)  THEN  ERROR  =  1l£; 
/*  ALL  TESTS  COMPLETED  SUCCESSFULLY; 

CREATE  THE  FILE,  ENTER  IN  DIRECTORY, 
UPDATE  SPACE,  ETC.  */ 

CALL  FILE  CREATOR  (INAME)  ; 
FDATA  =  FDATA  -  F1ELD3 ; 

CALL  PRIMITIVE  RCBDATA JINAME  ,#PUT, #CH1  SZ, 

FDATA, ERROR) ; 
ENECASE  * 
CASE  (U)  :  '  /*  CREATE  A  TEMPORARY  FILE  WHERE  SPACE 
IS  AVAILABLE;  ELSE  CREATE  A  DUMMY 
FILE  UNTIL  SPACE  BECOMES  AVAILABIE.  */ 
DO  J  =  PCT  L  LIMIT  TO  PCT  U  LIMIT  -  1 ; 
IF  (SPACE~VEC(J)J  THEN  DC; 

CALL  PRIMITIVE_RC3DATA  (J, #GET,#CFILE , 

FDATA,  JirtnOR)  ; 
IF  (FDATA  i=  ##PERMF)  THEN  DO; 

CALL  PRIMITIVE  RCEEATA (J , #GET , 

#CNT  SZ,FD"ATA, ERROR)  ; 
IF  (FIELD3"  <=  FDATA)  THEN 

GO  TO  CRATEF; 
END; 
END; 
END; 

IF  (J  >  PCT  U  LIMIT)  THEN  J    =  0; 
/*   CREATE  A"  DUMMY  FILE   */ 
CRATEF:  CALL  FILE  CREATOR  (J); 
FDATA  =  FDATA  -    FIELD3; 

IF  (J  -.=  0)  THEN  CALL  PRIMITIVE  RCBDATA  (J, 
#PUT,*CNT  SZ, FDATA, ERROR)  ; 
ENECASE;  "" 

CASE  (5):  '  /*  A  FILE  EXTENIION  REQUESTED;  CHECK 
FOR  SPACE  AVAILABLE  ON  SAME  UNIT: 
IF  NOT  AVAILABLE  SET  ERROR  CONDITION 
ELSE  ALLOCATE  SPACE,  UPDATE  DIRECTORY, 
UPDATE  FILE  ECB,  ETC.  */ 

/*  TO  BE  IMPLEMENTED  LAIEE   */ 
ENDCASE; 
END  OF  CASES; 
END;   /*  "END  DO  FOREVER   */ 

SI.1_.END 
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KZSSAGI  INTERPRETER:  PROC; 

IF  (7FIELD1  =  SSADD)   |   (FIBLD1  =  $$DELET)  )  THEN  1=1; 
ELSE  IF  (FIELD1  =  ^SSPACE)  THEN  I  = 


IF  (FIELD1  =  ^$5PACE)  THEN  1  =  2: 
ELSE  IF  (FIELD1  =  i$PERMF)  THEN  1=3; 
ELSE  IF  (FIELD1  =  $$TEMPF)  THEN  I 
ELSE  IF  (FIELD1  =  i$EXTNT)  T 
ELSE  ERROR  =  110; 


1=4; 
HEN  1=5; 


RET  CRN; 
END  MESSAGE_INTERPRETER; 

FILE_CREATCR:  PROC  (PCTINAM)  ; 

/*  THIS  SUBROUTINE  CREATES  A  FILE  (REAL  OR  DUMMY)  AND 
RELEASES  MESSAGES  TO  THE  PROCESS  REQUESTING  A  FILE 
ANE  TO  UPDATE  THE  DIRECTORY,  OR  QUEUES  REQUESTS 
UNTIL  SPACE  BECOMES  AVAILABLE  */ 

DCL  fPCTINAM,RCBNR,FDATA, AVAIL, PINAME)  FIXED  BINARY; 

DCL  CDATA  CHaR  (8)  ; 

DCL  DUMMY  PTS  POINTER; 

IF  (PCIINlM  -*  =  0)  THEN  DO; 

/*   GET  DATA  FOR  CREATING  A  FILE   */ 
CALL  PRIMITIVE  RCBDATA  (PCTINAM, #GET, #XNAME, CDATA, 

ERROR)  ; 
CALL  PRIMITIVE  RCBDATA  (PCTINAM, #GET , #DINAME , FDAIA, 

~~         ERROR)  ; 
CALL  PRIMITIVE  RCBDATA  (E DATA, #GET, # CWNER, PI  NAME , 

ERROR)  ; 
AVAIL  =  ##AVAIL; 

END; 
/*   SET  VARIABLES  FOR  CREATING  A  DUMMY  FILE*/ 
ELSE  DO;  CDATA  =  '  •;  FDAIA  =  0;  AVAIL  =  ##NOAVL:  END; 
CALL  CREATE  RCB  (#FILE ,CHAR  FIELD1 , RELEASOR. FIEIDJ  , 

FIELD2,CBATA,FDATA,AVAIL,FIELD1,RCBNR, 
ERROR)  ; 
IF  .(PCTINAM  -.=  0)  THEN  DO; 

/*   FILE  CREATED:  RELEASE  A  MESSAGE  TO  THE  INTERFACE 
PROCESS  TO  UPDATE  THE  DIRECTORY  */ 

ANSWER  REQUEST  =  FALSE; 
FIELD5~=  FIELD1; 
FIELD6  =  FIELD2; 
FIELD1  =  SSDIRAD; 
FIELD2  =  0; 
FIELD4  =  FDATA; 


CALL  PRIMITIVE  RELEASE  (PINAME, $RFILEW , 

MESSAGE, ERROR)  ; 


/*   RELEASE  A  MESSAGE  IX  THE  PROCESS 

REQUESTING  A  FILE.  */ 

FIELD1  =  ECBNR; 
CHAR  FIELD2  =  CDATA; 
CALL~PEI;1ITIVE  RELEASE  (REIEASOR  , 

MSG  SEMAPHORE, MESS AGE , ERROR) ; 
"END: 
ELSE  DO;   /*  DUMMY  FILE  CREATED;  QUEUE  UP  INFO  UNTIL 
SPACE  AVAILABLE  AND  MESSAGE  CAN  3E 
RELEASED  */ 

DUMMY  PTR  =  NULL; 
CALL  PRIMITIVE  PCBDATA  (RELEASOR, aGET ,?PRIPTY , 

FDATA, ERROR)  ; 
CALL  RCBFUTG(PCT  U  LIMIT, « RIGHT , RELEASOR, 

MSG  SEHAPHOUE7FDATA, DUMMY  PTR , RCBNR , ERRCR) ; 
OUT  SPACE  BEQ  =  OUT  SPACE  REQ  +1; 
END; 
END  FILE  CREATOR; 


SIACE_RESCIVER:  PROC  (PCTINAM)  ; 

/*   THIS  SUBROUTINE  ATTEMPTS  TO  RESOLVE  OUTSTAKDING 
FILE  CREATION  REQUESTS  */ 
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DCL  (PCTINAM, DAT, POSIT,  PINAM, FINAM,PRI , SEMA,  DAT2 , DATA) 

FIXED  BINARY; 
DCL  (FOUND, Q  EMPTY)  BIT(1),  DUMMY  PTR  POINTER; 
DCL  CDATA  CHIE(8)  ;  ~ 

POSIT  =  0; 

DO  WHILE  (CUT  SPACE  REQ  -=  0);   POSIT  =  POSIT  +  1; 

/*  GET  THE-SPACE~AVAILABLE;  AN  OUTSTANDING  REQUEST 
FOR  A  FILE  FROM  THE  QUEUE;  AND  THE  SPACE  REQUIRED 
FOR  THIS  FILE  REQUEST.  */ 

CALI  PRIMITIVE  RCBDATA (PCTI NAM, #GET, #CNI  SZ, DAT  ,EFROR)  ; 
CALL  RCE  FIND  (PCT  'J  LIMIT  ,  BRIGHT,  #FNDOP57POSIT  ,  PI  K  AM, 

FINAMTPBI, ERROR) : 
CALL  PRIMITIVE  RCBDATa  (FINAM , #GET , #C NT  SZ,DAT2  ,ERECR)  ; 
IF  (DAT  >=  DAT"2)  THEN  DO;  •  "" 

/*   SUFFICIENT  SPACE  IS  AVAILABLE:  REMOVE  THE 

FILE  REQUEST  FROM  THE  QUEUE.  */ 

CALL  RCBGETQ(PCT  U  LIMIT  ,  #RIGHT  ,  PINAM ,  SEMA  ,  DUMMY  PTR 
,FINA"H7FCUND,Q  EMPTY,  ERROR)  ; 
/*  UPDATE  THE  SPACE  AVAILABLE       '  */ 

DATA  =  DAT  -  DAT2; 
CAIL  PRIMITIVE  RCBDATA  (PCTIN AM , #PUT , #CNT  SZ, 

DATA, ERROR)  ; 
OUT  SPACE  REQ  =  OUT  SPACE  REQ  -  1; 

7*   INITIALIZE  FILE  RCB  ELEMENTS.  */ 

CALL  PRIMITIVE  RCBDATA  (FINAM , #PUI , #GFILE, # #AVAIL , 

ERROR) ; 
CALL  PRIMITIVE  RCBDATA  (PCTINAM , *GET , #DINAME , DAI A, 

ERROR)  : 
CALL  PRIMITIVE_RCBDATA  (FINAM, #PUT , ffDINAME, DAT A , 

ERROR) ; 

/*  RELEASE  A  MESSAGE  TO  THE  INTERFACE  PROCESS 

TO  UPDATE  THE  PCI  DIRECTORY.  */ 

FIELD4  =  DATA; 

CALL  PRIMITIVE  RCBDATA  (DATA, #GET, #GWNER, DATA, ERROR)  ; 
MiSlnih    REQUESI~=  FALSE; 
FIELD1~=  |$DIRAD; 
FIELD2  =  FINAM; 
FIELC3  =  DAT2; 
CALL  PRIMITIVE  RCBDATA-(FI  NAM,  #GET,  #TFILE, FIELD  5, 

ERROR) ; 
CALL  PRIMITIVE  RCBDA1 A  (FINAM  ,  #GET  ,  #S  OR  P/FIELE6(t 

ERROR) ;       ~   " 
CALL  PRIMITIVE_RELEASE  (DATA,  .SRFILEW  ,  MESSAGE  ,  ERROR)  ; 

/*  SETUP  AND  RELEASE  A  MESSAGE  TO  THE  PRCClSS 

REQUESTING  A  FILE.  */ 

CALL  PRIMITIVE  RCBDATA  (PCTINAM , #GET , #XNAME , CDAIA, 

ERROR) : 
CALL  PRIMITIVE_RCBDATA  (FINAM, #PUT, #XNAME, CDATA / 

ERROR) ; 
FIELD1  -  FINAM; 
CHAR  PIELD2  =  CDATA; 
ANSWlfi  REQUEST  =  FALSE; 
KSG  SEMAPHORE  =  0: 
FIITE2,  FIELD3  =  0; 
CHAR  FIELD  1  =  '  "  ; 

CALL~PRIMITIVE  RELEASE  (PINAM, SEttA, MESSAGE, ERROR)  ; 
POSIT  =  POSIT  -    1 ; 
CAT  =  DAT  -  DAT2; 

END; 
/*   CHECK  FOR  MORE  OUTSTANDING  REQUESTS  TO  BE 

SATISIFIED.  */ 

IF  (POSIT  =  OUT  SPACE  REQ)  THEN  RETURN; 
END: 
BETDBH; 
END  SI AC£_EESOLVER; 

END  I'ILE_SPACE_MANAGER; 
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MODULE  SPECIFICATION 

NAME:  .INTERRUPT  HANDLER  TYPE:   PROCESS 

PARAMETERS 

INPUT      OUTPUT     TYPE   CONTENTS 


None 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME PARAMETERS PURPOSE 

Release    Process  I-Narae,      a)  SError  -  Semaphore  used  to 
Semaphore,  send  messages  to  the  Error 

Message  Pointer,        Handler. 

Error  Parameter      b)    SXXX.XXX  -  Semaphore  used  to 

send  messages  to  an  inter- 
face process  or  process 
a  process  expecting  an 
interrupt  message. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  dis- 
Disabler   Interrupt  Save-      able  all  interrupts  while 

Vector  the  handler  is  in  execution. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  en- 
Enatler    Interrupt  Save-      able  a  specific  interrupt  or 

Vector  enable  all  interrupts  disabled 

by  this  process. 

Savestate  CPIname,  This  module  is  invoked  tc  save 

Processor,  the  current  state  of  execution 

Error  Parameter     of  a  process  being  preempted. 

Restore-   PINaaie,  This  module  is  invoked  to 

State      Processor,  restore  the  state  of  the  pre- 

Error  Parameter     empted  process. 

RCBData    Resource  I-Name,     Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  to  enter  cr  get 
Field  Identifier,    data  concerning  a  resource. 
Data  Parameter, 
Error  Parameter 

Find       Resource  Type,       Entry  point  to  RCB  Handler 
I-Name     Resourse  X-Name,     used  to  get  the  internal  name 
Resource  I-Name,     for  the  resource  specified  by 
Error  Parameter      type  (file,  device,  etc.)  and 

external  name. 
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EXTERNAL  CA1LS  MADE  BY  OTHER  MODULES 

NAME PURPOSE  . 

Invoked  directly  by  hardware  when  an  interrupt  occurs. 


DATA  STRUCTURES  USED 

NAME FIELD TYPE PURPOSE/VALUES 

Message     '       Based      Dynamically  allocated,  pointer 

Buffer  qualified  structure  used  for 

sending  information  concerning 
the  interrupt  via  a  Release. 

Saveint  Bit(1)     Array  used  to  save  the  status 

Array      of  the  interrupts;  arguement 
in  call  to  the  Disabler  and 
Enabler. 


H  0  D  U  L E_D  ESC R OPTION 

This  process  is  in voke-scheduled  by  hardware  when  ever  an 
interrupt  occurs.   It  determines  which  interrupt  was  set, 
sets  up  a  message  to  the  appropriate  interface  process  and 
resets  the  interrupt.   The  current  process  is  temporarily 
preempted  until  the  interrupt  is  handled.   This  module  has 
only  teen  partially  implemented. 
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%INCLUDE  NAHCHGB;  /*****  INTERRUPT  HANDLER  *****/ 

(CHECK  (ERROR)): 
INTERRUPI_HANDLER:  PROC  OPTIONS (MAIN)  ; 

^INCLUDE  GENEEC; 

^INCLUDE  CSDCL; 

SSINCLUDE  ECBEC1; 

SSINCLUDE  EEG.RELD; 

^INCLUDE  RRMSG; 

ON  CHECK  (EEROR) 
BEGIN; 

II  (EEROR  -*  =  0)  THEN  DO: 

(NCCHECK  (ERROR)  )  :  EEGIN; 
EIELD1  =  MYNAME; 
FIELD2  =  ERROR" 
CALL  PRIMITIVE* RELEASE  (ANYPROC ,$ERROR, MESSAGE, 

ERROR) ; 
ERROR  =0; 
GO  TO  RETURN  PT ; 
ENE; 
END; 
END; 

DCL   (SAV  PROC,INAME,INTF  PROC, SEMAPHORE)  FIXED  BINARY; 
DCL  E"SROE  FIXED  BINARY; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTEREUPI_DISENAELSR(ALL_INT,SAVEIN'IS)  ; 

SA 

ClLL  IE] 

/***  SET  CURRENT  "PROCESS  10  INTERRUPT  HANDIER'  */  _ 
CURRENT^FBOCESS  (S  YS_PBOC£SSOR)  =  MYNAME; 

/***  IDENTIFY  THE  INTERRUPT  ***/ 
CALL  INTEERUP1_IDENTIFIER; 

/***  RELEASE  THE  MESSAGE  TO  PROCESS  CONCERNED  */ 
CALL  PEIMIIIVE_RELEASE(INTF_PROC, SEMAPHORE, MESSAGE, EEROi<)  ; 

/***  RESTORE  THE  STATE  OF  INTERRUPTED  PROCESS  */ 
CALL  FfiIMITIVE_RESIORESTATE  (SA V_PROC,SYS_PROCESSO R, EEROR)  ; 

/***  EEENABLE  THE  INTERRUPTS  ***/ 
CALL  FRIMITIVE_INIEERUPT_ENABLER (ALL_I NT ,SAVEINIS) ; 

INTERRUPT  IDENTIFIER:  PROC; 

/*  IDEMIEY  WHICH  INTERRUPT  IS  SET,  SET  MESSAGE  BUFFER, 
RESET  THE  INTERRUPT,  SET  LOCAL  V^RIAEIES  ,INTF  PROC 
AND  SEMAPHORE, APPROPRIATELY  AND  TAKE  CARE  OF  AM 
SPECIAL  ACTION  REQUIRED  */ 

END  INIERRUPT^IDENTIEIER; 

RETURN  IT: 
END   INIlRRUPT_HANDLEE; 
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MODULE  SPECIFICATION 

NAME:   RELEASE  "TYPE:   PRIMITIVE 

PARAMEIEES 

INPUT OUTPUT IIRi CONTENTS 


Addressee  Integer    Process,  specified  or  unspeci- 

fied, expected  to  do  a  match- 
ing Request. 

Semaphore  Integer    Message/Resource  class  identi- 

fier. 

Message  Pointer    Qualifies  message  buffer  which 

contains  the  information  to  be 
entered  in  the  message  buffer 
reguest. 

Error     Integer    Error  condition  code. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME PAKAMj:i.EfiS PURPOSE „ 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  dis- 
Disabler   Save  Vector         able  all  interrupts  while 

Release  is  in  execution. 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  re- 
enafcler*   Save  Vector         enable  ail  interrupts  which 

were  disabled  by  the  current 
module  in  execution. 

RCBData    Resource  I-Name,  Generic  entry  point  to  RC3 

Put/Get  Identifier,  Handler  module  used  by  this 

Eield  Identifier,  module  to  verify  the  semaphore 

Data  Parameter,  passed  as  an  arguement. 
Error  Parameter 

RCBPUTQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

Left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  messaae  on  a  specified 

Data  Parameter,  resource  queui  by  priority. 

Priority,  Queues  used  by  this  module 

Message  Pointer,  are  the  message  semaphore  and 

Data  Parameter,  the  Ready  Active  queues. 
Error  Parameter 

PCBData    Process  I-Narue,  Generic  entr_y  point  to  PCB 

Put/Get  Identifier,  Structures  module  used  ny  this 

Field  Identifier,  module  to  verify  access  autho- 

Vector  Lower  Limit,  rization  for  the  process  using 

Vector  Upper  Limit,  the  semaphore. 
Vector  Parameter, 
Error  Parameter 

PCBData    Process  I-Hame,  Generic- entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  obtain 

Field  Identirier,  the  unblocKed  croce.^s's  type 

Data  Parameter,  and  priority  and  change  status 

Error  Parameter  to  ready  active. 
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Scheduler 


(NONE) 


Allocator  Caller, 

Addressee, 

Semaphore, 
Message, 


RegRel  Boolean, 
Match  Boolean, 
Error  Parameter 


This  primitive  is  invoked  to 
-schedule  a  process  for  exec- 
tion  if  the  current  process 
doing  the  release  matched  an 
outstanding  reguest  from  a 
blocked  process. 

This  primitive  is  invoked  to 
determine  if  a  matcning  re- 
guest has  xjeen  made  for  this 
message  or  the  resource  teing 
released  for  reallocation  to  a 
process.  If  Match  is  tr-ue  the 
process  is  unblocked. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
MM f l  PURPOSE 

Invoked  by  all  system  and  user  processes. 


DA1A  STRUCTURES 
NAME       EIELD 


USED 

TYPE Py£j>OSE^VALJ!S.__ 


Saveint 


Bit(1)     Array  used  to  save  the  status 
Array      of  the  interrupts;  arguement 

in  call  to  Disabler  and 

Enabler. 


MODULE  DESCRIPTION 


This  primitive  has  been  designed  to  provide  a  uniform  method 
for  interprocess  communication  and  resource  allocation.  The 
message/resource  class  identifier  and  process  access  autho- 
rization are  verified.  The  Allocator  is  then  invoked  tc 
determine  if  the  release  can  be  matched.  If  it  is,  the  pro- 
cess is  unblocked  and  the  Scheduler  is  invoked. 
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MODULE_JMPiEMTGNTAIION 

^INCLUDE  NAMCHGR;  /*****   RELEASE   *****/ 

/*  *************************** 

THIS  PRIMITIVE  DETERMINES  IF  THE  CURRENT  RELEASE 
WATCHES  AN  OUTSTANDING  REQUEST.  IF  IT  DOES,  THE  EIOCKED 
PROCESS  IS  ACTIVATED  AND  THE  SCHEDULER  IS  INVOKED.   **/ 

(CHECK  (ERROR) 1: 

PRIMITIVE  RELEASE:  PROC  (TO, SEMAPHORE, MSG  PTR,ERPRM) 

OPTIONS  (MAIN)  ; 

^INCLUDE  GENEEC; 

^INCLUDE  CSDCL; 

^INCLUDE  RCBECL; 

%1-NCLUDE  PCBDCL; 

ON  CHECK  (ERROR) 
BEGIN; 

IE  (ERROR  ->-    0)  THEN  DO; 
ERFRM  =  ERROR; 
GO  TO  RETURN  POINT; 
END; 
END; 

DCL  (CALLER, ADDRESSEE, SEMAPHORE, ERPRM,PRI, TO) 

FIXED  EINAEY; 

DCL  ERROR  FIXED  BINARY  INII  (0) ; 

DCL  MSG  EIR  POINTER; 

DCL  (VAlID,MiiTCH)  BIT(1); 

DCL  (SYSFEC,QUE)  BIT  (1)  J 

DCL  BEL  BII  (1)  STATIC  INITIAL  (' 1  «  B)  ; 

DCL  RES  VEC  (SEM  L  LIMIT  :  SEM  LIMIT)  BII  (2); 

DCL  10  7IXED  BINIS7  STATIC  INIT(O); 

DCL  NULP  POINTER  STATIC; 

/***  DISENABLE  ALL  INTERRUPTS***/ 
CALL  PRIMIiIVE_INTERRUPT_DISENABLER  (ALL^INT ,SAVEINTS)  ; 

/*   VERIFY  SEMAPHORE  ANE  ACCESS    */ 
CALL  EBIHITIVE  RCBDAT A (3 EMAPHORE, #GET, #ASSGND, VALID , 

ERROR) ; 
IF  _(?VALID)_  THEN_ERROR_=_3  08; 

C 

I 

/***  INVOKE  THE  ALLOCATOR  ***/ 
ADDRESSEE  =  TO; 

CALL  PRIMITIVE' ALLOCATOR (CALLER, ADDRESSEE, SEM APBOEE , 

MSG  PTR,REL, MATCH, ERROR)  ; 


IF 


(MATCH)  THEN  DO;  /***  ACTIVATE  THE  PROCESS  ***/ 
CALL  PRIMIT1V£_PCBDATA  (ADDRESSEE,  a)  PUT,  a)ST  AT  US, 

clu/REDYA,  iRROR)  ; 
CALL  PRIMITIVE_PCBDATA  (ADDRESSEE,  SGiiT  ,u)PRIRTY  ,  PRI, 

ERROR)  ; 
CALL  PRIMITIVE  PCBDAT A  (ADDRESSEE, aGET ,2SYS PRO , 


SYSPRO,ERKOR) ; 
IE   (SYSPRO  =  TRUE)  THEN  QUE  =  iGS;  ELSE  QUE  =  «USER; 
HULP  =  NULL; 
CALL  RCBPUT^  (IfREDYA  ,  QUE,  A 

ERROR)  : 
CALL  PRIMITIVE  SCHEDULER; 

EflD; 
!    POINT:      /***    REENABLE,  TH 
CA^L    PBIMIIIVE    INTERRUPT    ENABL£R(ALL    1  tJT  ,  SA  VE  IH'TS)  ; 
END    PRIMITIVE    RELEASE; 


MULP  =  NULL; 

CALL  RCBPUTi  (* RE DY A , QUE, ADDRESSEE, 10 ,PRI, N ULP , 10 , 

ERBf  " 

E  S( 

RflD, 
RETURN  FOTNT:   /***  REENABLE,  THE  INTERRUPTS  ***/ 
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MODULE  SPECIFICATION 

NAME:       EE.C.UEST  TYPE:      PfiXJITIVE 

PAR AMETE  ES 

£NPUI OjjTPUT TYPE CONTENTS t__ 

Addressee  Integer    Process,  specified  or  unspeci- 

fied, expected  to  do  a  mat.ch- 
ing  Release. 

Semaphore  Integer    Message/Resource  class  identi- 

fier. 

Message  Pointer    Qualifies  message  buffer  in 

which  the  matching  release 
message  information  is  tc  be 
of  a  process  doing  a  matching 
entered. 

Error      Integer    Error  condition  code. 


EXTERNAL  CAI1S  MADE  TO  OTHER  MODULES 
NAME       PARAMETERS  PURPOSE 


tc  dis- 
e 


Interrupt  Interrupt  Number,    This  module  is  invoked  t 
Disabler   Save  Vector         able  all  interrupts  whil 

Request  is  in  execution. 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  re- 
enailer    Save  Vector  enable  all  interrupts  which 

were  disabled  by  the  current 
module  in  execution. 

RCBData    Resource  I-Name,  Generic  entry  point  to  RCB 

Put/Get  Identifier,  Handler  module  used  by  this 

Field  Identifier,  module  to  verify  the  semaphore 

Data  Parameter,  passed  as  an  arguement. 
Error  Parameter 

PCBData    Process  I-Name,  Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  used  by  this 

Fierd  Identifier,  module  to  verify  access  autho- 

Vector  Lower  Limit,  rization  for  the  process  using 

Vector  Upper  Limit,  the  semaphore. 
Vector  Parameter, 
Error  Parameter 

PCEEata    Process  I-Narae,  Generic  entry  point  to  PCB 

Put/Get  Identifier,  Structures  module  to  change 

Fiej.d  Identifier,  the  reguesting  process's  sta- 

Data  parameter,  tus  to  blocKed  if  no  nratch  . 
Error  Parameter 
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Scheduler   (NONE) 


Savestate 


Reguestor, 
Processor, 
Error  Parameter 


Allocator  Caller, 

Addressee, 
Semaphore, 
Message, 

Beg_Rel  Boolean, 
Match  Boolean, 
Error  Parameter 


This  primitive  is  invoked  to 
schedule  a  process  for  exec- 
tion  if  the  current  process 
doing  the  reguest  gets  blocked 
for  an  answer  or  a  resource. 


This 
save 
cution 
did  an 


primitive 
the  current 


is  invoked  to 
state  of  exe- 
of  the  process  which 
unmatched  reguest. 


This  primitive  is  invoked  to 
determine  if  a  matching  re- 
lease has  been  made  or  if  the 
reguested  resource  is  availa- 
ble for  allocation  to  this 
process.  If  Match  is  false  the 
process  is  blocked. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 

NAME J. PURPOSE 

Invoked  by  all  system  and  user  processes. 


DATA  STRUCTURES  USED 

NAME IIILD TYPE   PURPOSE/VALUES. 


Saveint 


Bit(1) 

Array 


Array  used  to  save  the  status 
of  the  interrupts;  arguement 
in  call  to  Disabler  and 
Enabler . 


MODULE  DESCRIPTION 


This  primitive  has  been  designed  to  provide  a  uniform  method 
for  interprocess  communication  and  resource  allocation.  The 
message/resource  class  identifier  and  process  access  autho- 
rization are  verified,  ihe  Allocator  is  then  invoked  tc 
determine  if  the  reguest  can  be  satisfied.  If  not,  the  pro- 
cess is  blocked  and  the  Scheduler  is  invoked. 
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M0DULE_1«PLEMENTATI0N 

^INCLUDE  NAMCHGR;  /*****  REQUEST   *****/ 

/*  **********************  ***** 

THIS  PRIMITIVE  DETERMINES  IF  THERE  IS  A  HATCHING 
RELEASE  FOE  THE  CURRENT  REQUEST.  IF  NOT,  THE  INVOKING 
PROCESS  IS  BLOCKED,  THE  REQUEST  QUEUED,  AND  SCHEDULER 
INVOKED.  **/ 

JCHECK  (ERROR)): 

PRIMITIVE  REQUEST:  PROC (TO, SEMAPHORE, MSG  PTR,ERPRM) 

OPTIONS  (MAIN)  ; 

^INCLUDE  PCBDCL; 

XINCLUDE  OSDCL; 
SklNCLUDE  ECBtCL; 

DCL  (SEMAPHORE, ADDRESSEE, CALLER, ERPRM, TO)  FIXED  BINARY; 

DCL  ERROR  FIXED  BINARY  INIT  (0) ; 

DCL  MSG  FIR  POINTER; 

DCL  REC~EII(1)  STATIC  INITIAL  (' 0  '  B)  ; 

DCL  VALID  EITM)  INITIAL  ('  1  »  B)  ; 

DCL  RES  VEC  (SEM  L  LIMIT  :  SEM  LIMIT)  BIT  (2)  ; 

DCL  MATCH  BII(1)  ;  " 

ON  CHECK  (ERROR) 
BEGIN; 

IF  {ERROR  -.=  0)  THEN  DO; 
ERPRM  =  ERROR; 
GO  TO  RETURN  POINT; 
END; 
END; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMIIIVE_INTERRUPT_DISENABLER  (ALL_IN1 ,SAVEINTS)  ; 

/*   VERIFY  SEMAPHORE  AND  ACCESS   */ 
CALL  PRIMITIVE  ECBDATA  (S  EMAPHORE,-4$GEI,  #ASSGND,  VALID, 

ERROR)  ; 
IF  (->VALID)  THEN  ERROR  =  303; 
CALLEE  =  CURRENT  PROCESS  (PROCESSOR)  ; 
CALL  PRIMITIVE  PCBDATA (CALLER, fflGET.SRES VEC, SEN  L  LIMIT, 

SEM  LIMIT,  RES  VEC,  ERROR]"  ;~ 
IF  (RES_VEC(SEMAPHORE)  =#sNt)ACC)  THEN^ERROR  =  307; 

/***  INVOKE  THE  ALLOCATOR  ***/ 
ADDRESSEE  =  TO; 


CALL  PRIMITIVE 'ALLOCATOR (CALLER, ADDRESSEE, SEM APHORE  , 

MSG_PTR,REQ, MATCH, ERROR) ; 

IF  (-nMATCH)  THEN  DO;  /***  ELOCK  THE  INVOKING  PROCESS  **/ 
CALL  PRIMITIVE_PC£DATA  (CALLER  ,<aPUT,  3STATUS  ,  d)2BLKDP, 

ERROR)  : 
CALL  PRIMITIVE  SAVESTATE  (CALLER , PROCESSOR, ERROR)  ; 
CURRENT  PROCESS  (PROCESSOR)  =0; 
CALL  PRIMITIVE  SCHEDULER; 
END; 

RETURN  POINT: 

/***  REENAELE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLER(&LL  HIT, S A VEINTS)  ; 
END   PRIMITIVE  REQUEST; 
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MODULE  SPECIFICATION 

NAME:   ALLOCATOR  "  TYPE:   PRIMITIVE 

PARAMETERS 

INPUT OCTFUT TYPE C  0  N  T  EN  T  £ 


Addressor  Integer    Process  Internal  name  which 

initiated  the  call  to  Reguest 
or  Release. 

Addressee  Integer    Process  internal  name  to  which 

the  message  is  addressed  or 
from  which  the  message  is  ex- 
pected; may  be  unspecified. 

Semaphore  Integer    Message/Resource  class  iden- 

tifier. 

Message  Pointer    Qualifies  message  container. 

Reg_Rel  Bit(1)     Boolean  identifying  message 

type;  reguest  or  release. 

Match      Bit(1)     Boolean  specifying  if  the  cur- 
rent message  matched  a  gueued 
message. 

Error     Integer    Error  condition  code. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 
NAME       PARAMEI?;RS  PURPOSE 


PCEData    Process  I-Name,  Generic  entry  point  to  PCS 
Put/Get  Identifier,  Structures  module  to  obtain 

Field  Identifier,  the  priority  of  the  process 

Data  Parameter,  which  initiated  the  message 

Error  Parameter  when  no  match  was  found. 

RCBPUTQ    Resource  I-Name,  Entry  point  to  RCB  Handler 

Left/Right  Queue,  used  to  insert  a  process 

Process  I-Name,  or  a  message  on  a  specified 

Data  Parameter,  resource  gueue  by  priority 

Priority,  when  no  matcb  was  round.  The 

Message  pointer,  gueue  is  specified  by  the  se- 

Data  Parameter,  maphore  and  Reg  Rel  . 
Error  Parameter 

RCB-       Addressor,  This  primitive  is  invoked  to 

Match      Addressee,  compare  outstanding  messages 

Semaphore,  on  the  specified  semaphore 

Message,  gueue  (if  any)  and  returns  the 

Reg_Rel,  message  buffer  pointer  if  a 

Match,  match  is  found. 
Error  Parameter 
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EXTERNAL  CALLS    MADE  BY  OTHER  MODULES 
NAME ; PUJ*POS£ 


Eeguest  S  Release 


Resource  allocation  and  message  matching 
or  gueueing  unmatched  messages. 


DATA  STRUCTURES  USED 
NAME   FIELD TYPE. 


Message 
Buffer 


Based 


PyRPOSE/VALUES 

Structure  used  to  store  un- 
matched message  releases  until 
matching  reguest  is  received. 


MODULE  DESCRIPTION 
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M0SUi2_^MPLEMENTATI0N 

%INCLUDE  NAMCBGR;  /#****   ALLOCATOR  *****/ 

(CHICK  (ERROR) ) : 

PRIMITIVE  ALLOCATOR:  PROC  (A DDRESSOR, ADDRESSEE, SEMAPHORE, 

MSG  FTR,REQ  REL,  MATCH,  ERRORPARM) 
OPTIOKS1MAIN)  ;  ~ 

S5INCLUDE  PCBECL; 

^INCLUDE  GENEEC;  » 

^INCLUDE  ECEECL: 

JKINCLODE  REQEELD; 

ON  CHECK  (ERROR) 
B"EGIN; 

IP  (ERROR  -.=  0)  THEN  DO; 
ERRORPARM  =  ERROR; 
GO  TO  RETURN  POINT; 
END; 
END; 

DCL  J ADDRESSOR, ADDRESSEE, SEMAPHORE, PRI , DATA, ERRORPARM) 

FIXEE  BINARY; 
DCL  ERROR  FIXED  BINARY  INIT(O); 
DCL  (HSG  PTR,MSGPTR)  POINTER; 
DCL  (HATHH,  &E.Q_Ri1L)     BIT  (1)  ; 

/*   DETERMINE  IF  THE  CURRENT  MESSAGE  MATCHES  A  QUEUED 

MESSAGE.  */ 

CALL  PRIMITIVE  RCB  MATCH  (ADDRESSOR, ADDRESSEE, SEMAPHORE, 

MSGPTR, REQ_REL, MATCH, ERROR)  ; 

IF  ((MATCH)  &  (-»REQ  REL)  )  THEN  DO;  /*  MATCH  &    REQUEST  */ 


CF     ((MATCH)     &     (-.REQ    REL))     THEN 

IF     (MSG    iTR    -.=    NULL)     THEN    DO; 

HSG    Plfi    ->    MESSAGE    BUFFER    = 


MSGPTR    ->    MESSAGE    EL'FFER; 
FRFE    MSGPTR    ->    MESSAGE    BUFFER; 
END  ; 

RETURN;  END; 

IF     ((BATCH)     &     (REQ    REL))     THEN    DO;    /*    MATCH    &    RELEASE    */ 
IF     (HSG    PTR    -•=    NULL)     THEN 

MSGPTR"    ->    MESSAGE    BUFFER    =    MSG_PTR    ->    MESSAGE    EUFFER; 

MSGPTE    ->    RELEASOR"    =    ADDRESSOR; 
RETURN;  END; 

IF  ((-iflATCH)  &  (REQ  REL)     &  (MSG  PTR  --=  NULL))  THEN  DO; 

7*  NO  MATCH  6  RELEASE  */ 
ALLOCATE  MESSAGE  BUFFER  SET  (MSGPTR) ; 

MSGPTR  ->  MESSACE  BUFFED  =  MSG  PTR  ->  MESSAGE  BUFFER; 
MSGPTR  ->  RELEASOR  =  ADDRESSORj 

END; 

ELSE  MSGPTR  =  MSG_PTR;  /*  NO  MATCH  &    REQUEST  */ 

/*   NC  MATCH:  QUEUE  THE  MESSAGE  BY  PRIORITY  */ 

CALL  PRIMITIVE  PCBDAT  A  (ADDRESSOR,  o)GE!,  3PRIRTY,  PRI, 

pip  Dn  '  \  ■ 

CALL    RCBFUTQ  (SEMAPHORE, REQ    REL, ADDRESSOR, ADDRESSEE  , PRI, 
MSGPTR,DATA,EI<RCR)  ; 

RETURN  POINT: 

END    PRlMI'iIVE_ALLOCAl'OR; 
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MODULE  SPECIFICATION 


HAKE:       SCHEDULER 


TYPE:   PHI MOTIVE 


PARAMETERS 
£NPUT OUTPUT 

None 


TYPE 


CONTENTS 


EXTERNAL 
NAME_ 

Interrupt 
Disabler 


CALLS  MADE  TO  OTHER 
PARAMETERS 


MODULES 
PURPOSE 


Interrupt  Number, 
Save  Vector 


Interrupt  Interrupt  Number, 
enatler    Save  Vector 


Savestate  CPIname, 

Processor, 
Error  Parameter 


Restore- 
State 


PCBData 


RCBGETQ 


RCBPUTQ 


RCB-Find 


PI Name, 
processor, 
Error  Parameter 


This  module  is  invoked  to  dis- 
able all  interrupts  while 
Scheduler  is  in  execution. 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

This  module  is  invoked  tc  re- 
enable  all  interrupts  which 
were  disabled  by  the  current 
module  in  execution. 

This  module  is  invoked  tc  save 
the  current  state  of  execution 
of  a  process  being  preempted. 

This  module  is  invoked  tc 
enter  the  newly  scheduled  pro- 
cess's state  vector  into  tne 
the  allocated  processor's 
registers. 


Process  I-Name,      Generic  entry  point  to  PCB 
Put/Get  Identifier,  Structures  module  to  enter  or 
Pield  Identifier,    obtain  data. 
Data  Parameter, 
Error  Parameter 


Resource  I-Name, 
Left/Right  Queue, 
Process  I-Name, 
Q^_Iata  Parameter, 
Message  Pointer, 
C_£ata  Parameter, 
Found  Boolean, 
Q  Status  Boolean, 
Error  Parameter 

Resource  I-Name, 
Left/Right  Queue, 
Process  I- Name, 
Data  Parameter, 
Priority  , 
Message  Pointer, 
Data  Parameter, 
Error  Parameter 

Resource  I-Name, 
Left/Right  Queue, 
Find  Operation, 
Queue  Position, 
process  I- Name, 
Data  parameter, 
Data  Parameter, 
Error  Parameter 


This  entry  point  to  RCB  Rand- 
ier is  used  tc  remove  a  pro- 
cess from  the  specified  gueue 
for  the  indicated  resource. 
The  data  stored  in  the  gueue 
are  returned  if  the  process  is 
found  and  the  gueue  status  is 
also  provided. 


This  entry  point  to  RCE 
Handler  is  used  to  enter  a 
preempted  process  on  the  ready 
active  queue  after  doing  a 
savestate  operation. 


Tnis  entry  point  to  RCB  hand- 
ler is  used  to  determine  gueue 
position  of  a  process  and  put 
or  get  a  copy  of  data.  The 
process,  position,  or  both  may 
be  specified  to  select  a  spe- 
cific process,  any  process  at 
the  specified  position  01  a 
specific  ptoctss  at  a  speci- 
fied position. 
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EXTERNAL  CALLS  MADE  3Y  OTHER  MODULES 
NAME  _PURPOSE_ 


Request 
Release 


Current  process  blocked  on  unsatisfied 
request;  hense  processor  available. 

Current  process  did  a  matching  release 
which  unblocked  a  process;  hense,  pre- 
emption possible. 


DATA  STRUCTURES  USED 
NAME        FIELD      TYPE 


Saveint 


Bit(1) 
Array 


PURP05-E/VALUES 

Array  used  to  save  the  status 
of  the  interrupts;  arguement 
in  call  to  Disabler  and 
Enabler. 


Current 
Process" 


Integer    This  static  array  identifies 
Vector     processes  assigned  a  processor 
which  is  identafied  by  the  ar- 
ray index. 


CPU  CPROC 
Pri~ 


Integer    Array  of  priorities  for  the 
Vector     current  processes. 


MODULE  DESCRIPTION 


This  primitive  has  teen  partially  implemented  to  perform 
scheduling  of  processes  with  preemption  only  among  operating 
system  processes.  System  processes  execute  only  on  the 
system  processor  while  user  processes  execute  on  the  other 
processors. 
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MODULE  IMPLEMENTATION 

^INCLUDE  NAMCHGB;       /*****  SCHEDULER   *****/ 

/*  THIS  PRIMITIVE  SCHEDULES  PROCESSES  TO  BE  SUN  ON 

PROCESSORS.  */ 

(CHICK  (ERROR)  )  : 
PRIKITIVE_SCHEDULEE:  PSOC  OPTIONS  (SAIN) ; 

5SINCLUDE  OSDCI: 

^INCLUDE  FCEECL; 

^INCLUDE  ECEECL; 

^INCLUDE  GENEEC; 

ON  CHECK  (ERROR) 
EEGIN; 

IE  (ERROR  -•=  0}  THEN  GO  TO  RETURN_POTNT;  END; 

DCL  _(F  EI,  POSIT,  PINAME,pOM»YFBJ__FIXED  BINARY  (15), 

STATIC  INII((4)0) 


ERROR  FIXED  BINARY  (15)  INII(O), 
CPU  CFROC  PRI(4)  FIXED  BINARY  (15) 


CPU  CFROC  PRI{4)  FIXED  BINARY  (15)  STATIC 
,  (FOUND,  DU/HMYB1, RE  SChED,  PREEMPT)  EIT(1), 
DUMMYPTB   POINTER! 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  ERIMITIVE_INTEERUPT__DISENA5LSR  (ALL_I NT,SA VEINIS)  ; 

/***  SCHEDULE  USER  PROCESS  IF  PROCESSOR  IS 

AVAILABLE  ***/ 

DO  I  =  1  TO  NUMBCPU: 

II  ((I  ->  =  SYS  PROCESSOR)  6  (CURRENT_PRCCESS  (I)   =  0)) 
THEN  DO; 

POSIT  =  1; 

CALL  SCB  FINB(#REDYA,#USER,#FNDOP5, POSIT, PINAME. 

~DUrluYFB/PRI,  ERROR)  ; 
IF  (PINAME  ->=  0)  THEN  DO; 

CALL  RCBGETQ (#REDYA, #0SER,PINAM1,DUMMYFE, 

DDMMYPTR.  DUMMYFB,  FOUND,  DUMJ3YB1,  ERROR)  ; 
CALL  PRIMITIVE  PCBDATA  (PINAME,  dJPUT.SSTATUS  , 

33RUN, ERROR)  ; 
CPU  CPROC  PRI(I)  =  PRI; 

CALL  PEIMlTIV£_B2STOBESTATE(PINAMF.,I,ERfiOB) ; 
END; 
END; 
END; 
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/***  SCHEDULE  SYSTEM  PROCESSES:   PREEMPT  IF 

NECESSARY  ***/ 

POSIT  =  1: 
CALL  RC£  FIND(*EEDYA,#OS,#FNDOP5, POSIT, PINAME, D UMM YFE, 

PHI, ERROR)  ; 
IF  (PINAME  -•=  0)  THEN  DO; 

IF  (CURRENT  PROCESS (SYS  PROCESSOR)  =  0)  THEN 
RE    SCEED~=  TRUE; 
ZLS~E   DO; 

RE  SCHED  =  FALSE* 

IF~<PRI  >  CPU  CPEOC  PRI(SYS  PROCESSOR))  THEN  DO; 
PREEMPT  =  TRUE; 

CALL  RCBPUTQ{#EEDYA,#OS,  CURRENT  PROCESS  ( 
SYS  PROCESSOR) , DUMMYFB, CPU  CPROC  PR1  ( 
SYS~PROCESSOR) , DUKMYPTE , DUE EYFB.ERBCB) ; 
CALL  PRIMITIVE  SAVESTATE (CURRENT  PROCESS  ( 
SYS  PROCE3~SOR\  fSYS  PROCESSOR , ERROR)  ; 
CALL  PRIMITIVE  PCEDATA (CURRENT  PROCESS ( 

SYS  PROCESSOR)  ,  a/PUT,  SVSTATUS  , a>a>REDYA,  EfifiOR)  ; 
END; 
FLSF  PREEMPT  =  FALSE; 
END; 
IF  (RE  SCHED  |  PREEMPT)  THEN  DO; 

CPU  CPEOC  PfiI(SYS  PROCESSOR)  =  PRI; 

CALI  RCBGEly  (sREDlA  .  #OS  .  PIN  A11E,  DUKMYFB,  DUMK  YEIE, 

DUMMYFBrFOUND,DUMMYBl ,ERROR) ; 
CAIL  PRIMITIVE  PCBDATA  (PINAME,  d)PUT,a)STATUS  ,  S2RUN, 

ERROR) ;   ~ 
CALL  PRIMITIVE  RESTOEZSTATE (PINAME ,SYS  PROCESSOR, 
ERROR)  ;   ~  _ 

END; 
END; 

/***  REENALLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLER (ALL  INT , SAVEINTS)  ; 
RFIURN_POINI: 

END  PRIHITIVE_SCHEDULER; 
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MODULE  SPECIFICATION 

NAME:   DEVICE  DIRECTORY  TYPE:   PRIMITIVE 

PAR AMETE  ES 

INPUT OUTPUT TYPE CONTENTS , 

X-Nacie  Integer    Identifies  device  external 

name. 

Sha_Pri    Integer    Device  access  type:  shared  or 

private. 

Xnam  Pro   Char (8)    External  name  of  the  interface 

process. 

NR_PGS     Integer    Number  of  pages  in  page  table. 

PglocVec   Integer    Vector  of  the  interface  pro- 
Array      cess's  page  addresses. 

Priority   Integer    Priority  of  interface  process. 

Interrupt  Integer    Device  interrupt  identifier. 

Found      Bit(1)     Boolean,  indicatina  that  the 

device  specified  by  external 
name  was/was  not  in  the  Eevice 
Directory. 


EXTIHNAL  CALLS  MADE  TO  OTHER  MODULES 

MAUI P&K&MEXEfiS £5R^OSE 

Interrupt  interrupt  Number,    This  module  is  invoked  tc  dis- 
Disabier   Save  Vector         able  all  interrupts  while 

Device  Directory  is  executing, 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

Interrupt  Interrupt  Number,    This  module  is  invoked  to  re^ 
enatier    Save  Vector         enable  all  interrupts  which 

were  disabled  by  trie  current 
module  in  execution. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 

NAMJ t PURPOSE h 

File  Manager,        This  primitive  is  invoked  to  obtain  the 
Input  Controller,    required  data  to  create  a  device  RGB  and 
6   Output  Controller  a  uevice  interface  process. 
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DATA  STRUCTURES  USED 

NAME LUI-kD TYPE PURPOSE/  VALUES 

Saveiat  Bit(1)     Array  used  to  save  the  status 

Array      of  the  interrupts;  arguement 
in  call  to  Disabler  and 
Enabler. 

Directory  Static    Dictionary,  indexed  by  exter- 

Array      nal  name,  of  the  computer  sys- 
tem I/O  devices. 

Device    Char (8)    Device  external  name. 
Name 

Access     Integer    Device  access  specification: 
Type  shared  or  private. 

Process    Char  (8)    Interface  process  external 
Name  name. 

Nr.  Pgs    Integer    Nuaber  of  pages  in  interface 

processes  page  table. 

Page      Integer    List  of  page  addresses  fcr  the 
Vector     Array      Interface  process. 

Priority   Integer    Priority  of  interface  process. 

Interrupt  Integer    Identifies  device  interrupt 
Number  number* 


MODULE  DESCRIPTION 


This  primitive  has  been  designed  to  provide  the  system  with 
the  necessary  information  to  create  an  ECB  for  an  I/O  device 
and  an  associated  interlace  process.  The  device  external 
name  need  only  be  specified  to  obtain  this  information. 
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MODULJLIHPLEHENTATION 

JSINCLUDE    HAHCHGR;  /*    DEVICE    DIRECTORY    */ 

x*    ************************* 
THIS    PRIMITIVE    IS    USED    BY    SYSTEM    PROCESSES    TO    GET 
THE    REQUIRED    INFORMATION    TO    CREATE    AN    RCB    FOR    A 
DEVICE    AND    A    PCB    FOR    THE    INTERFACE    PROCESS.  */ 

DEVICE    DIRECTORY :PROC(XNAME, SEA    PRI,XNAM    PRO ,NRPGS , PGLCCVEC, 

PRI,INTRPl?NR,l,O0ND7    OPTIONS  (MAIN)  ; 

%INCLUDE    GENEEC; 
5JINCLUDE    CSDC1; 

DCL  (XNAF1E,XNAM    PRO)     CHAR  (8)  : 

DCL  (SH/i    PRl,NRl,GS,PRI,INTRPTNR)     FIXED    EINARY; 

DCI  PGLCCVEC (*)     FIXED    BINARY; 

DCL  JCUND    BIT  (1) 


DCL    NS_ENTRIES    FIXED    BINARY    STATIC    INIT  (3)  ; 

DCL    1    DIRECTORY     (3)     STATIC, 

DEVNAME    CHAR(8)     I  NIT  (« IPDEV  1  ■  ,  '  FPDEV  1 «  ,  '  OPDEV  1 « )  , 
SHARPRI    FIXED    BINARY    INIT(1,1,1), 

nnnviTiu       r*  it  -.  n    /  o  \        t  xt  t  m   /  I  t  w t\  ri  r\  -1  t         I  nn n r\  4  I        I  nnrr.nr.rM  i  \ 


2    PRCXNAh    CHAR<8)     I  NIT ( ' INPRO 1 ' , ' FPR01 ' , • OUTPE01 • )  , 

2    NUM    PGS    FIXED    BINARY    INIT  (1/1,1), 

2    PG   IOC    VEC     (1)     FIXED    BINARY    INIT  (9. 10,1  1)  , 

2    PRIORITY    FIXED    BINARY    INIT  (45, 4-1,45)  , 

2    INTERRUPT_LOC    FIXED    BINARY    INIT  (1,2,3); 

/***    DISENABLE    ALL    INTERRUPTS    ***/ 
CALL    PRIMITIVE_INTEERUPT_DIS£NABLER  (ALL_INT, SA VEI NTS)  ; 

/*       SEARCH    THE    DIRECTORY    FOE    THE    EXTERNAL    NAME  */ 

DO    I    =     1    TO    NE    ENTRIES    WHILE     (DEVNAME(I)     -.=XNAME)  ;    END; 

IF     (I    >    NR    ENTRIES)     THEN    DO;    FOUND=FALSE;    RETURN;     END; 

/*       IF    FOUND    TRANSFER    THE    DATA  */ 

SHA    PRI    =    SHARPRI  (I)  ; 

XNA"H    PRO    =    PROXNAM  (I)  ; 

NRPCS    =    HUM    PGS  (I)  ; 

PGLCCVEC    =   "PG    LOC    VEC  (I,*); 

PRI    =    PRIORITY  (I)  ; 

INTBETNR    =    INTERRUPT    LOC  (I)  ; 

FOUND    =    TRUE; 

/***    ENABLE    THE    INTERRUPTS    ***/ 
CALL    PRIMITIVE_INTERRUPT^ENABLER  (ALL_INI , SAVEINTS)  ; 

RETURN; 
END    DEVICE_DIRECTORY; 
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MODULE  SPECIFICATION 

NAME:   PCE_STRUCIURES  '  TYPE:   PRIMITIVE 

PARAMETE5S 

INPUT OUTPUT TYPE CONTENTS , 

Parameters  specified  with  the  appropriate  entry  point. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME JPARAHETERS PU^RPCSE : 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  dis- 
Disabler   Save  Vector         able  all  interrupts  while 

PCS  Handler  is  in  execution. 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  re- 
enalier    Save  Vector         enable  all  interrupts  which 

were  disabled  by  the  current 
module  in  execution. 


EXTIRNAI  CALLS  MADE  BY  OTHER  MODULES 
NAMJ PURPOSE. 


Invoked  by  processes  and  other  primitives. 


DAT!  STRUCTURES  USED 

NAME FIJL3 TYPE PJPPOSF^VALUHS . 

Saveiat  Bit(1)     Array  used  to  save  the  status 

Array      of  tne  interrupts;  arguement 
in  call  to  Disenabler  and 
Enabler . 

PCB_REF  Pointer    This  vector  contains  the  PCB 

Array      rererence  pointers  for  created 
processes.  The  index  numher  is 
the  process  internal  name.  The 
dimension  is  bounded  by  the 
external  variable  PCE  LIMIT, 
initialized  at  IPL,  wnich  spe- 
cifies the  maximum  number  or 
processes  that  can  exist  at 
any  time  in  the  system. 

PCB  Based      Process  Control  Block. 

External   Char  (8)    Process  external  name. 
N  a  h.  e 

Parent     Integer    Process  'creator. 

Child      Integer    Internal  name  of  dependent, 

related  process. 

Left-      Inteqer    Links  independent,  related 
Sibling  processes;  value  is  a  process 

internal  name  or  zero. 


U6 


Eight-    Integer 
Sibling 


PCE  Page   Pointer 
Table  Vec 


File      Integer 
Write  Cntr 


Sys  Bit(1) 
Process 

Resource  Bit  (2) 

Vector  Array 


Links  independent,  related 
processes;  value  is  a  process 
internal  name  or  zero. 

Qualifies  the  Page  Table 
structure  containing  the  page 
addresses. 

Value  is  the  number  of  current 
file  open  reguests  for  write 
access  into  a  shared  file. 

Boolean  used  to  gualify  a  pro- 
cess as  a  system/user  process. 

Array  used  for  identifying  re- 
source acquisition  and  access 
authorization.  Values  are;  a) 
##NOACC  -  access  unauthorized 
b)  ##ACCES  -  access  authorized 
c'i  ##ACQRD  -  resource  acquired 
d)  ##SACRF  -  allocated  resour- 
ces have  been  sacrificed. 
The  array  index  is  a  resource 
internal  name. 


File      Integer    Shared  file  usage  identifier. 
Status  Values  are:  a)  ##READR  -  read 

only,  b)  #tfW£ITR  -  write  or 


read  and  write  access,  c) 
##SACR  -^sacrificed  writer. 


Message_   Pointer 
Pointer 

Status     Char (8) 


Priority   Integer 
Quantum    Integer 


Cycle_     Integer 
Time 

Processor  Integer 


Registers  Integer 
Vector 


Qualifies  the  message  buffer 
allocated  to  the  process. 


Process  system  status.  Values: 
blocked  for  a 


a) 

a 

d 
e 


a)£BLKDR  - 
resource 
3SBLKDT  - 
cDcDEEDYA  - 
processor 
33SUSPD  - 
33RUN    - 


blocked 
blocked 


fo 
fo 


process  su 
process  sche 


r  time 
r  a 

spended 
duled. 


Process  priority. 

Maximum  execution  time  alloted 
for  each  allocation  of  the  CPU 
to  the  process. 

Reschedule  time  period  fcr  a 
recurrent  process. 

Processor  allocated  to  the 
process. 

State  vector:  status  of  CPU 
registers  saved  when  execution 
interrupted  ot  the  initial 
state  of  execution. 
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Page_  Based  Contains  the-  number  of  pages 

Table  and  the  page  addresses. 

Number    Integer 
Pages 

Table     Integer  Contains  the  location  of  each 

Array  page  of  a  process's  code. 


J20DULE_DE5CRj;PTigN__ 

This  module  has  been  designed  to  be  independent  and  to 
provide  sufficient  flexibility  for  modification.  A  PCS 
structure  has  been  defined  above  which  is  allocated  dynami- 
cally. Data  is  entered  or  retrieved  by  invoking  the  module 
at  the  data-type-specified  entry  point.  The  entry  point 
specifications  have  been  done  separately. 
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HO  DUiiE-JE^PLE  MENTATION 

XINCLUBE  NAMCHGR;       /*****   pCE  STRUCTURES  *#***/ 

PCBSTB:  EEOC  OPTIONS  (MAIN)  ; 

^*  ***************************** 

OPEBATING  SYSTEM  SOBMODDLE  1  OF  DATA  STBUCTURES. 

THIS  MODULE  IS  DESIGNED  TO  BE  INDEPENDENT  OF  THE  OTHER 
0.5.  MODULES  AND  TO  PROVIDE  SUFFICIENT  FLEXIBILITY  FCR 
EASE  OF  MODIFICATION.  A  PRIMITIVE  PCB  STRUCTURE  IS 
DEFINED  FOE  WHICH  SPACE  IS  ALLOCATED  DYNAMICALLY. 
INFORMATION  IS  ENTERED  INTO  AND  RETRIEVED  EROM  ELEMENTS 
OF  THE  STRUCTURE  THROUGH  A  CALL  TO  THIS  "MODULE  AT  A 
SPECIFIED  ENTRY  POINT  DEPENDING  ON  THE  TYPE  OF  DATA 
(IE.  CHARACTER. BIT  STRING,  INTEGER,  INTEGER  ARRAY). 
A  SIMPLIFIED  PAGE  TABLE  IS  SIMILARLY  DEFINED  AND 
ALLOCATED,  AND  IS    LINKED  TO  THE  APPROPRIATE  PCB. 
*****************************/ 

SINCLUDE  GENEEC; 

^INCLUDE  CSDCL; 

^INCLUDE  PCEDCL; 

foINCLUDE  CASESTM; 

DCL  NUME_PAG£S  FIXED  BINARY; 

DCL  PCB_HEF_ARRAY(50)  PGINTER  STATIC; 

DCL  1  PCB  BASED  (PCB_PTR)  ALIGNED, 

2  EXTERNAL_NAME  CHAR  (8)  , 

2  IMMEDIATE  RELATIVES, 
3  (  PAR  EN X, 
CHILD, 

LEFT  SIBLING, 
RIGHT_SIBLING   ) FIXED  BINARY, 

2  PCB_PAGE_TABLE_PTR   POINTER, 

2  RESOURCES. 

3   FILE  SHARE  WRITE  CTR  FIXED  BINARY, 
3   VALID  SYS  "PROCESS  BITM)  , 
3  EESOURCE_Vi:c  (120)  BIT  (2)  , 
3   FILE  STATUS  FIXED  BINARY, 
3   MESS7IGE_?GINTER  POINTER, 

2  PROCESS  EXECUTION  DATA, 
3  STATUS   CHAR  ("3)  , 
3  (  PRIORITY, 

QUANTUM, 

CYCLE  TIME, 

PE0CE3SK   )  FIXED  BINARY, 
3  REGISTERS  (10   FIXED  BINA.cY(31J; 


DCL  1  PAGE  TABLE  BASED  (PAGE  1ABLE  PTR) , 
2  SUHBTJB  PAGES  FIXED  BINARY, 
ILEfNUMB  PAGES  REF 
FIXED  bTNARY (15) ; 


2  TABLE  ("NUMB  PAGES  REFER  (NUMBER  PAGES)) 
~IXED 
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/*       INITIALIZE  PCB  REFERENCE  VECTOR  TO  NULL  AND  LAEEL 
INDICIES.  THIS  INITIALIZATION  IS  INTENDED  TO  EI 
DCNE  AT  IPL  TIMS  BY  THE  SYSTEM  SUPERVISOR.  */ 

PCBS1BIHI:   ENTRY  ; 

DCL  FIRST  BIT(1)  STATIC  INIT(M'B); 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  FRIKITIVE_INTERRUPT_DISENABLER(ALL_INT,SAVEINTS)  ; 

IF  FIRST  THEN  DO; 
FIRST  =  FALSE; 

PCB  REF  ARRAY  =  NULL; 

ALLECA11  PC£  SET (PCB  PTR) ; 

PCE    REF    ARRAY(1)     =    PC"B    PTR; 

PCE'FAGT?    TABLE    PIP.    =    NULL; 

QUATJTUK,- 

CHILD, 

LEEI  SIELING, 

RIGBl  SIBLING, 

PAEFNT, 

FILE  STATUS, 

FILE~SHAEE  WRITE  CTR , 

CYCLE  TIME-  =   OT 

PRIORITY  =  50; 

VALID  SYS  PROCESS  =  TRUE; 

STATUE    =    oJ&REDYA; 

EXTERNAL    NAME    =     'ERRHNDLR1; 

KESOUBCE'VEC    =    'OO'B; 

REGISTERS  =0; 
END; 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLER (ALL  INT #5AVEINTS)  ; 
RETURN;       ~  "  "" 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   PCB  STRUCTURES   ENTRY  NAME:   GETPCB 

PARAMETERS 

INPUI ^OUTPUT TYPE CONTENTS p j 

Parent  Integer    Process  creator. 

Right_  Integer    Child  of  the  parent may  be 

Sibling  "      zero. 

External_  Char  (8)    External  name  of  the  process. 

Name 

Priority  Integer    Priority  of  the  process. 

Sys_Proc  Bit(1)     System/User  process  boolean. 

Values:  #OS  or  #USE3. 

State  Integer    Initial  state  vector  used  to 

Array      set  the  CPU  registers  upcn 

allocation  of  a  processor  for 
execution. 

Internal   Integer    Process  internal  name. 
Name 

Cycle_  Integer    Reschedule  time  period  fcr  a 

Time  *      recurrent  process. 

Error      Integer    Error  condition  code.  Values: 

a)  205  -  PCB  space  unavailable 


ENTRY  POIN1  INSCRIPTION, 
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ENTRY  POINT  IMPLEMENTATION 


THIS  ENTRY  POINT  15  INVOKED  WHEN  A  NEW  PCB  IS  TO  BE 
ALLOCATED  AND  INITIALIZED.   AN  INTERNAL  NAME  IS 
ASSIGNED  AND  A  PCS  ALLOCATED  IE  SPACE  IS  AVAILABLE 
(IF  THE  NUMBER  OF  ALLOWAELE  PROGRAMS  IN  THE  SYSTEM 
S  NOT  EXCEEDED PRESENTLY  50).  */ 


£ 


GETPCB:  ENTRY  (FATHER, BROTHER, EXT  NAME, PRI, SYS  PROC, STATE, 

INTERNAL_NAME, CYCLE, ERROR)  ; 

DCL  (FATHER, BROTHER, PRI, CYCLE, INTERNAL  NAME) 
FIXED  BINARY; 

art 

BINARY  (31)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPT_DISENABLER(ALL_INT,SAVEINIS) ; 


DCL  EXT  NAME  CHAR  (8)  ; 
DCL  SYS"*PROC  EIT  (1)  ; 
DCL  STAuE(*)  IlXlb  BI 


/*   GET  INTERNAL  NAME.   */ 
DO  INTERNAL  NAME  =1  TO  PCB  LIM 

WHILE-  (PC3  REF  ARRAY^INIERNAL  NAME)-=  NULL); 
END: 
IF  (INTERNAL  NAME  >  PCB  LIM)  THEN  DO; 

INTERNAL  TIAME  =  0;   IRROR  =  205;   GO  TO  R1  ; 
END; 

/*    ALLOCATE  AND  INITIALIZE  THE  PCB.   */ 
ALLCCATE  PCB  SET  (  PCB  PTE)  ; 
PCB  REE  ARRAY  (INTERNA!  NAME) =PC3  PTR ; 
PCB~FAGE  TABLE:  PTR  =  NULL; 

QUANTUM, CHILD, LEFT  SI 3LING, PROCESSR  -  0; 
RESOURCE  VEC  =  »0'B; 
STAIUS=  "SiSUSPD; 
PARENI=FATHER; 
RIGHT  SI3LING=BSCTHE2; 
PEIOBlTY=PEl: 
EXTERNAL  NAME=EXT  NAME; 
CYCLE  IIIE=CYC1E:" 
RESOURCE  VEC  =  'OO'B: 
VALIE  SYS"  PROCESS  =  SYS  PROC; 
DO  1=1  TO"10; 

REGISTERS  (I)  =STATE  (I)  ; 
END; 

R1: 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLER (ALL  INT,SAVEI NTS)  ; 
EETUEN;       ~  "         '    ~ 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   PCB  STRUCTURES   ENTRY  NAME:   RE1PCB 

PARAMETERS 

XNPUT OUTPUT TYPE CONTENTS 

Internal_  Integer    Internal  name  cf  the  process 

Name  being  destroyed. 

Error     Integer    Error  condition  code.  Values: 

a)  201  -  Invalid  process  name. 

b)  202  -  Inactive  PCB  numcer. 

MTRY_POINT_  DESCRIPTION ^ ^ 

Deallocation  of  a  PCB  and  associated  Page  Table,  and  freeing 
of  the  internal  name  for  future  use  is  accomplished  when 
this  entry  pcint  is  invoked.  Entry  is  restricted  from  direct 
access  by    user  processes. 


ENTRY  PQINI  IMPLEMENTATION 

/******#*****************  ***** 

DEALLOCATION  OF  A  PCB  AND  ASSOCIATED  PAGE  TABLE,  AND 
FREEING  OF  THE  INTERNAL  NAME  FOR  FUTURE  USE  IS 
ACCOMPLISHED  WHEN  THIS  ENTRY  POINT  IS  INVOKED.     */ 

RELPCB:  ENTR*  (INTERN AL_NAME, ERROR)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRU?T_DISENA3LER (ALL_INI,SAVEINTS)  ; 

/*   VERIFY  PCB  NUMBER  AND  ACCESS.    */ 
IF  INVALID (INTERNAL_NAME)  THEN  GO  TO  B2; 

/*   DEALLOCATE  THE  PCB  AND  PAGE  TAELE.   */ 
IF(PCE  PAGE  TABLE  PTRi  =  NULL)_  THEN  DO; 

PAGE_TABtE  PTR=PCE_PAGE_TABLE_PTR ; 

FREE  PAGE  TABLE; 
END; 

PCB  REF  ARRAY  (INTERNAL  NAME)=NULL; 
EEEl  PCB; 

R2 : 

CALL  PRIMITIVE  INTERRUPT  ENABLES  (ALL  INT ,SAVEI NTS)  ; 
/***  ETIA3LE  THE  INTERRUPTS  *"**/ 
RETURN; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:    PCB_STRDC_TJJ?E_S  ENTRY  NAME:   EIND_PINAME 

PARAMETERS 

INPUT      OUTPUT     TYPE CONTENTS 


PXname  Char (8)    Process  external  name. 

Plname    Integer    Process  internal  nam.e. 

Error     Integer    Error  condition  code.  Values; 

a)  206  -  Process  not  found. 

ENTRY  POINT  DESCRIPTION 

This  entry  pcint  searches  the  list  of  active  PCB's  to  find 
the  process  specified  by    external  name  and  return  the  in- 
ternal name  it  found. 


ENTRY  POINT  IMPLEMENTATION 

•  ****#*#**#********■#**#**  ***** 

THIS  ENTRY  POINT  SEARCHES  THE  LIST  OF  ACTIVE  PCB'S 
TO  ICCATZ  THE  PROCESS  WITH  EXTERNAL  NAME  («PXNAME») 
AND  RETURNS  ITS  INTERNAL  NAME  (•PINAME').  IF  NOT 
FOOHE  AN  ERROR  CONDITION  IS  RAISED.  */ 

FIND^PINAME:  ENTRY  (PXNAME, PIN AME, ERROR) ; 

DCL  PXNAME  CHAR  (3)  ; 
DCL  EINAME  FIXED  BINARY; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  £RIMI1TVE_INI'EERUPT_DISENABLSR  (ALL_INT, SA VEINIS)  ; 

DO  I  =  1  TO  PCB  LIM; 

ECB  PTR  =  ECB  REF  ARRAY  (I); 

IF  IffCB  PTR  =?=  NULL)  fc  (EXTERNAL  NAME  =  PXNAME)) 
THEa  DO;   PINAME  =  I;   GO  TO~R3;   END; 
END: 

ERROR  =  206; 
PINAME  =  0; 

R  3  * 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPT_ENABLER (ALL_INT ,SAVEI NTS) ; 

RETUBN; 
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ENTRY  POINT  SPECIFICATION 


MODULE  NAME 


PCB  STRUCTURES   ENTRY  NAME: 


PCBDATA-GENZRIC 


PAJflNETEES 

■£S£U1 .OUTPUT TYPE CONTENTS 

***«x*******comraon  Parameters  To  Each  Entry  point*********** 

PCB__Fumb  Integer    Process  internal  name. 

Put/Get  Bit(1)     Operation  identifier.  Values: 

a)  3PUT  -  enter  data  in  speci- 
fied field  of  the  PCB. 

b)  cDGET  -  return  copy  of 
data  stored  in  specified 
PCB  field. 


Field# 


Integer 


Error 


Integer 


PC 
a) 


b) 


B  field  i 
SBORHNR 
used  to 
specif ie 
tion  inv 
3BRMVEC 
ence  use 
the  page 
SCHILD  - 
©CYCLE  - 
3FSTAT  - 
SFHCNl'R 
31FTSIB 
MSGPTR  - 
o>NR  PGS 
SPAUEKT 
SPE  MR  - 
SPRTRTY 
3QUANTM 
SRESVEC 
ouRGTSIB 
d)STATE  - 
SSTATUS 
SSYSPRO 
3XNAME  - 


dent 

-  Pa 
obta 
d  pa 
alid 

-  Pa 
d  to 

tab 
PCB 
PCB 
Fil 

-  Fi 

-  Le 
Mes 

-  Nu 

-  Pa 
Pro 

-  Pr 

-  Qu 

-  Re 

-  Ri 
Re 

-  S 

-  S 


irier.    Va 
ge  Taole 
in   addres 
ge.    Put    o 


Ex 


3 


ge  ta 

get 
le. 
Chil 
Cycl 
e  bta 
le  Wr 
ft^si 
sage_ 
niber 
rent, 
cesso 
iorit 
antum 
sourc 
ght_s 
ister 
atus. 
s_Pro 
ernal 


ble 
a  co 

d  fi 
e_Ti 
tus. 
itew 
blin 
Poin 
Paqe 


r . 

y. 

e  Ve 
il-li 


cess 

Nam 


lues: 
refer- 
£  of  a 
tera- 

ref er- 
FY  of 

eld. 

Be. 

Cntr. 

c. 

ter. 


ctor. 
ng. 


e. 


Error  condition  codes.  Values: 
a)  201  -  Invalid  process  name,. 


b 


202  -  Inactive  PCB  nunDer. 

203  -  Invalid  field  number, 

204  -  Invalid  operation. 


ENTRY  POINg  DESCRIPTION 

oints  are  invoked  to 


enter  or  get  a  copy  cf 


These  entry 

data  from  a 

coDJiiicn;  the  first  three  which  identify  the  PCB 

or  get  operation,  and  the  PCB  field,  respectively.  The 

parameter  is  the  last  parainetei_  in  each  entry  point 


PCB.  They  all  have  at  least  four  tetrameters  in 

numner,  put 

Erroj 


***************#****Generic  Entry  points******************** 

DATCHAri  Entry  Point  Specification. 

PARAMETERS 

j^NPUT^ OUTPUT TY^I CONTENTS 

Charparm   Charparm   Char(8)    Transfer  of  character  data. 

DATFIXB  Entry  Point  Specification. 

PAEAI^ETEBS 

INPU1      OUTPUT     TYPE        CONTENTS 


Eixbparm   Fixbparm   Integer    Transfer  of  integer  data. 

SPUT  unauthorized  in  fields: 


SBHKVEC  and  £NR_PGS.  a.GEI  not 
authorized  in  field  3EBMVEC  if 
tne  Page  Table  is  unallocated. 


DATEIT2  Entry  Point  Specification. 


PAiiAfcETEBS 

INPUT    '"'  OUTPUT     TYPE       CONTENTS 


L^Lim  Integer    Array  lower  limit. 

U_Lia  Integer    Array  upper  limit. 

B2ary      B2ary      Bit (2)     Transfer  of  bits  data  into  or 

Array      from  an  element  of,  portion  of 
or  the  entire  resource  vector. 


DATAPYS  Entry  Point  Specification. 

PAHARETEBS 

INPp_i OUTPUT £YPE_ CONTENTS 

L_Liiu  Integer    Array  lower  limit. 

U_Lin.  Integer    Array  upper  limit. 


SFBary     SEEary     Integer 

Array 


Transfer  short  integer  array 
data  into  or  from  an  eleaeni 
of,  portion  ot.  or  the  entite 
Page  Table  Vector.  SGET  is  not 
authorized  if  the  table  is  not 
allocated. 


DATAPYL  Entry  Point  Specification. 


PABAKETEES 

INPUT      OUTPUT     TYPE       CONTENTS 


LFBaty     LFEary     Integer    Transfer  long  integer  ariay 

Array      data  into  or  from  tne  PCL 


field  -  Registers. 
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DATExTI  Entry  Point  Specification. 

PAR AMETE  ES 

INPUT OUTPUT TYPE^ CONTENTS 

Bitlparm  £it(1)     Transfer  a  copy  of  data  from 

PCB  field  Sys_Process  only. 
Field  initialized  when  process 
created. 


DAIPTH  Entry  Point  Specification. 

PARAMETERS 

INPU1 OUTPUT^ TYPE CONTENTS 

Ptrparm    Ptrparm    Pointer  .  Transfer  pointer  data  identi- 
fying the  process's  message 
buffer. 


ENI'JI_£QIN1_  DESCRIPTION p 

The  entry  point  is  selected  by  a  preprocessor  generic  pro- 
cedure vnich  determines  the  appropriate  entry  point  by  the 
number  of  arguements  in  the  call  and  their  data  type. 
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/ 


***************************** 
THE  FOLLOWING  ENTRY  POINTS  ARE  INVOKED  TO  ENTEE  IN 
Cfi  GET  A  COPY  OF  DATA  FROM  A  PCB.  THEY  ALL  HAVE   AT 
LEAST  FIVE  PARAMETERS.   THE  FIRST  IS  THE  PCB  NUMEER 
THE  SECOND  SPECIFIES  IF  THE  OPERATION  IS  A  PUT  OR  A 
.  GET,  THE  THIRD  IDENTIFIES  THE  FIELD, 
PARAMETERS  ARE  DATA  PARAMETERS,  AND 

PARAMETER  IS  AN  ERROR  PARAMETER. 
********************* 


THE  NEXT 
THE  LAST 


******* 


*/ 


DCL 

DCL 
LCL 
DCL 


(PC 

POT 

(1 
IT? 

CH 
CH 
FI 
FI 
EI 
EI 
RE 
AR 
AR 
AR 
AR 
EI 
EI 
PT 
PTR 


B  NUMB,FIELD#, ERROR)  FIXED  BINARY, 
GlT  BIT  ' 


LIM,U 

DX 


:t  (1)  ; 

.LIM) 


FIXED'  BINARY 
AR  L  LIM  FIXED  BI 
AR~U~LIM  FIXED  BI 
XB~L~LIM  FIXED  BI 
XE~~U~LIM  FIXED  BI 
T2~L  LIM  FIXED  BI 
I2~U~LIM  FIXED  BI 
S  YEC  U  LIM  FIXED 
Y"3    L   IIH    FIXED    BI 


FIXED    BINARY; 


YS    ICLIH 

YI~L  LIM 
YL~U~LIM 
11    L~L1K 

T1~U~LIM 
R    I   IIM 


FIXED 

FIXED 
FIXED 
FIXED 
FIXED 
FIXED 


BI 
31 
BI 

BI 

31 

31  N 


8  IIM  FIXED  BINA 


NARY 
NARY 
NARY 
NARY 
NARY 
NARY 

BINA 
NARY 
NARY 
NARY 
NARY 
NARY 
NARY 
ARY 
RY  ST 


STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

RY  STAT 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

ATIC  IN 


:t  12) 

-1(1)  i 
:Thj, 

INIT  I 


INIT  (1) 

INIT  2 

INIT  (1 

INIT  (12 

INIT 

INI 

IC 

INIT  (1 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

IT  (1) 


(120), 


/*  ***********************  ***** 

THIS  ENTRY  POINT  IS  INVOKED  TO  ENTER  OR  GET  A  COPY 
GF  CHARACTER  TYPE  DATA.  V 


DATCHAfi:  ENTRY  (PCB_NUMB, PUTGET, FIELD* ,CHARPARM, ERROR)  ; 

DCL  CHARPARM  CHAR  (8)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  ERIMITIVE_INTBERUPT_DISENABLER(ALL_INT,3AVEIN13) ; 

/*  VERIFY  PCB  NUHEEF,  ACCESS  AND  OPERATION.  */ 
IF  (INVALID (PCB  NUMB)) THEN  GO  TO  R4; 

IF  ((FIELDS  >  CHAR  U  LIM)   |   (FIELD*  <  CHAR  L  LIM))  THEN 
DO  ; 

ERROR  =  203; 
GO  TO  R4; 
END; 


/*  THE  INDEX  INTO  THE  CASE  STATEMENT  IS  COMPUTED  TC 

REFLECT  THE  FIELD  AND  OPERATION  DESIRED 

INDX  =  2*    FIELD*  ; 

IF  (PUTGET  =  d)GET)  THEN  INDX  =  IIJDX-1; 

DO  ACTION  OF  CASE  (INDX); 

CASE  (1)7  CHAEPAKH  =  STATUS;  ZNDCASE; 

CASE  (2  :  STATUS  =  CHARPARM;  ENDCASE; 

CASE(J):  CHARPARM  =  EXTERNAL  NAME;  ENDCASE; 

CASE  (4):  EXTERNAL  NAME  =  CH-AlfPARM;  ENDCASE; 
END  CF^CASES; 


V 


BI: 


/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENADLER  (ALL_I  NT,SAVi,I  NTS).  ; 
EETUBN; 
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THIS  ENTRY  POINT  IS  USED  TO  ACCESS  INTEGER 

(FIXED  BINARY)  TYPE  DATA.  */ 

DATFIXE:    EIJTRY(PCBj_NUMB,PUTGETrFIELD#/FIXBPARM/ERROR)  ; 

DCL    FIXBPARM    FIXED    BINARY; 

/***    DISENABLE    ALL    INTERRUPTS    ***/ 
CALL    PRIMITIVE_INTERRUPT_DISENABLER(ALL_INT,SAVEINTS) ; 


/*    VERIFY    PCB    NUMBER,    ACCESS    AND    OPERATION.    */ 
IF     (INVALID  (PCB    NUMB)  )  THEN    GO    TO    R5: 

IF     ((iFIE-O*    <      TIXB    L    LIM)     1      (FIELD*    >    EIXB    U    LIM)  )     THEN 
DO:    ERROR    =    203:    G"0    TC  ~    ~ 


.'HEN  GU  TO  Rt>; 
,IM)  1  (FIELD* 
.'0  R5;   END; 


/*  THE  INDEX  INTO  THE 
REFLECT  THE  FIELD  AND 
I'NDX  =  2  *  FIELD#; 
IF  (PUTGET  =  SGET)  THEN 


CASE  STATEMENT  IS  COMPUTED  TC 
OPERATION  DESIRED  */ 


DO  A 
TA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
C  A 
CA 
CA 


E 
CA 
CA 


CTIO] 
SEMI 


SE 
SE 
SE 
SE 
SI 
SE 
SE 
SE 
SE 
SE 
SE 
SE 
Sjl 


2 
3 
4 
5 
6 
7 
8 
9 
1 
1 
1 
1 

n 


si 


SE(1 


NEC  A 
SE  (1 
SE  (1 


SE: 
6)  ; 
7): 


OF  CASE ( 

FIXBPA 

PRIORIT 

FIXBPAR 

QUANTUM 

FIXBPAR 

PARENT 

FIXBPAR 

CHILD  = 

FIX3PAR 

:  LEFT  S 

:  FIXE?  A 

:  RIGHT 

:  FIXBPA" 

:  PROCSS 

:  IF  (PC 

FIX 

ELSE 

PAG 

FIX 

END; 


IMDX) 
EH  = 
Y  =  F 
M  =  Q 

=  FI 
M  =  P 
=  FIX 
H  =  C 

FIXB 
M  =  L 
IB  LIN 
RJ3  = 
SIBLI 
EM  = 
SR  = 
B  PAG 
EPARH 
DO; 
E_TAB 
EPARM 


INDX  =  INDX  -  1 


PRIORITY;  ENECASE; 
IXBPARM;  ENDCASE; 
UANTUM;   ENDCASE; 
XEPARM;   ENECASE; 
ttRENT;    ENDCASE; 
SPARM;    ENDCASE; 
HILD;     ENDCASE; 
PARM;     ENDCASE; 
EFT  SIBLING;   ENDCASE; 
G  =~FIXBPARM;  ENECASE; 
RIGHT  SIBLING;  ENECASE; 
II G  =  FIXBPARM;  ENECASE; 
PROCESSR;        ENDCASE: 
FIXBPARM;        ENECASE; 
E  TABLE  PTR  =  NULL)  THEN 
=  0;   ~ 


LE  PTR  =  PCB  PAGE 
=~NUMBER  PAGES;  " 


TABLE  PTR 


EN 
CA 
CA 
CA 
CA 
CA 
CA 
CA 
END 


ECAS 
SE  (1 


SE 
SE 
SE 
SE 
SE 
SE 
CE 


\i 


E 
8 
9 
0 
1 

i) 

AS 


ERROR  =  204;   ENDCASE; 

IF  (PCB  PAGE  TABLE  PTR  =  NULL)  THEN  DO; 
FIXLPARH  =  0;   "ERROR  =  204; 
END; 
ELSE  DO;, 

PAGE  TABLE  PTR  =  PCB  PAGE  TABLE  PTR; 
IF  (7FIXBPIRM  <  1)   |~ 

(FIXBPARM  >  NUMBER  PAGES))  THEN 
ERROR  =  204; 
ELSE  FIXBPARM  =  TABLE  (FIXBPARM)  ; 
END; 


ERROR  =  204:   ENDCASE; 
FIXBPARM  =  FILE  STATUS;   ENECASE; 
FILE  STATUS  =  FIXBPARM:   ENECASE; 
FIXEPAKM  =  FILF  SHARE  WRITE  CTA; 
FILE  SHARE  WRITE  CTB  =  FIXBPARM; 
FIXBPARM  =  CYCLE  TIME;  ENDCASE; 
CYCLE  TIME  =  FIX3PAEM;  ENDCASE; 


ENECASE. 
ENECASE 


R5: 


call  pbim; 

RETUBN: 


/***  ENABLE  THE  INTERRUPTS  ***/ 


Tl V E^IN TERR  UP T_EN ABLER ( ALL_I NT ,SAVEI NTS) 
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/J***************************** 

THIS  ENTRY  POINT  IS  USED  TO  ACCESS  EIT (2)  ARRAY  DATA 

V 

DATBIT2:  ENTRY  (PCB  NUMB, PUTGET, FIELD*, L  LIM,U  LIM,B2ARY, 

ERRO~R)  ;  ~ 

DCL   E2ARY  (*)  BIT  (2)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPI_DISENABLER(ALL_I1JT,SAVEINIS)  ; 

/*  VERIFY  PCB  NUMBER,  ACCESS  AND  OPERATION.  */ 
IF  (INVA1ID(PCE  NUMB))  THEN  GO  TO  R6; 

IF  ((FIELD*  <  BIT2_L  LIM)  |  (FIELD*  >  BIT2_U  LIM) )  THEN 
DO; 

ZKROk   =    203; 
GC  TC  R6; 
END: 
IF  ((1_LIM  <  1)  |  (U_LIM  >  RES_VEC_U_LIM))  THEN 
DO: 

ERROR  =  204; 
GO  TO  R6; 
END; 

/*  THE  INDEX  INTO  THE  CASE  STATEMENT  IS  COMPUTED  TC 
REFLECT  IEE  FIELD  AND  OPERATION  DESIRED  */ 

INDX  =  2  *  FIELD*; 
IF  (PUTCET  =  a)GET)  THEN  INDX  =  INDX  -  1; 

DO  ACTION  OF  CASE  (INDX)  ; 

CASE(1)7   DO  I  =  L  LIM  TO  U  LIM; 

B2ARY  (I)  =  RESOURCE  VEC  (I)  ; 
END; 
ENECASE: 
CASE  (2)  i   DO  I  =  L  LIM  TO  U  LIM: 

RESOURCE  VEC(1)~=  B2ARY  (I)  ; 
END; 
ENECASE; 
E1JD_CF_CASES; 

R6: 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLER (ALL  I  NT , SAVEINTS)  ; 
RETUEN;        ~ 
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/■************************  ***** 

THIS  ENTRY  POINT  15  USED  TO  ACCESS  FIXED  BINARY  (15) 
ARRAY  DATA  */ 

DATARYS:  ENTRY (PCB  NUMB , PUTGET, FIELD#,L  LIM,U  LIM,SFEARY, 

ERRtSR)  ;  ~ 

DCL  SFBARY(*)  FIXED  BINARY; 

/***  DISENAELE  ALL  INTERRUPTS  ***/ 
CALL  ERIMIIIVE_INIERBUPT_DISENABLER (ALL_INT, SA VEINIS)  ; 

/*  VERIFY  PCB  NUMBER,  ACCESS  AND  OPERATION.  */ 
IF  (INVALID  (PCB  NUMB))  THEN  GO  TO  R7 ; 

IF  (  (EIELD#  <  AftYS  L  LIM)   |   (FIELDS  >  ARYS  U  LIM))  THEN 
DO;  _    - 

ERROR  =  203; 
GO  TC  R7; 
END; 

/*    THE    INDEX    INTO    THE   CASE    STATEMENT    IS    COMPUTED    TC 
REFLECT    THE    FIELD    AND    OPERATION    DESIRED  */ 

INDX  =  2  *  FIELD*  ; 

IF  (PUIGET  =  d)GET)  THEN  INDX  =  INDX  -  1; 

DO  ACTION  OF  CASE (INDX) ; 

CASE  (1)T  IF  (PCD  PAGE  TABLE  PTR  =  NULL)  THEN 
ERROR"  =  2U4; 
ELSE  DO; 

PAGE  TABLE  PTR  =  PCB  PAGE  TABLE  PTR; 
IF  (7L  LIM~<  1)   I  (U  IIM  >~NUMBE"F«  PAGES)) 
THEN  ERROR  =  204;  ~ 
ELSE 

DO  I  =  L  LIM  TO  U  LIM; 

SFBARY^I)  =  TABLE  (J)  ; 
END; 
END; 
EN  ECAS  E  * 

CASE  (2):  IF((L  LIM  -■=  1)  |   (U  LIM  <  1))  THEN  DO; 
ERRDR  =  204; 
RETURN; 
END; 

IF  (PCB  PAGE  TABLE  PTR  -=  NULL)  THEN  DO; 
PAGE_IABL'E  PTR  =  PCB  PAGE  TABLE  PTR; 
IREE    PAGE  TABLE; 
END; 
NUMB  PAGES  =  U  LIM; 

ALLOCATE  PAGE  TABLE  SET  (PAGE  TABLE  PTR)  ; 
PCB  PAGE  TABLE  PTR  =  PAGE  TAlLE  PTR"; 
DO  I  =  1  TO  U  IIM; 

TABLE  (I)  =  SFBARY  (I)  ; 
END; 
ENECASE; 
END  OF  CASES; 
R7 :   ~   ~ 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  EHABLEE  (ALL  IHI,SAVEIN1S)  ; 
i.ETURN; 
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/*  ************************* 
THIS  ENTRY  POINT  IS  USED  TO  ACCESS  FIXED  3INAP 
ARRAY  DATA. 

DATARYL:   ENTRY  (FCE_NUMB, PUTGET, FIELD*, LFBARY, ERROR) 

DCL  LFBARY  (*)  FIXED  BINARY  (31); 

,***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  FRIKITIVE_INTERRUPI_DISENABLER  (ALL_INT,SA VEIN 


*  *  * 
Y(31) 
V 


IS)  ; 
N.  */ 
)  |  (FIELD#  >  ARYL_U_LIM))  THEN 


/*  VERIFY  PCB  NUMBER,  ACCESS  AND  OPERATIO 
IF  (INVALID  (PCB..  NUMB)  )  THEN  GO  TO  R8 ; 


VERIFY  PCB  NUMBER 
(INVAIID(PCB  NUMB))  T 
IF  (  (FIELD*  <  AiJYL  L  LIM 
DO; 

ERROR  =  204; 
GC  TC  E8; 
END; 

/*  THE  INDEX  INTO  THE  CASE  STATEMENT  IS  COMPUTED  T< 

REFLECT  IKE  FIELD  AND  OPERATION  DESIRED 

INDX  =  2  *  FIELD#; 

IF  (PUTGET  =  d)GET)  THEN  INDX  =  INDX  -1; 

DO  ACTION  OF  CASE  (INDX)  : 
CASE  (1)7  DO  I  =  1  TO  10: 

LFBARY(I)  =  REGISTERS  (I)  ; 
END; 
ENICA5E; 
CASE  (2) :  DO   1  =  1  TO  10; 

REGISTERS  (I)  =  LFEARY  (I)  ; 
END; 
ENECASE; 
END  CE  CASES; 


*/ 


R8: 


/ 


/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  FRIMITIVE  INTERRUPT  ENABLER (ALL  I  NT ,SAVEINTS) 
RETURN;  ~ 

************************  ** 
THIS  ENTRY  POINT  IS  USED  TO  ACCESS  BIT(1)  DilTA 


DATBIT1:  ENTRY  (PCB^NUMB,  PUTGET,  FIELD#  ,BIT  1PARH, ERROR 

DCL  EIT1PARM  BIT(1)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRir.ITIVE_INTERRUFT_DISENABLER  (ALL_INT, SA VEIN 

/*  VERIFY  PCB  NUMBER,  ACCESS  ANL  OPERATIO 
IF  (INVALID(PCE  NUMB) )  THEN  GO  TO  R9 ; 
IF  ((FIELD?  <  BIT1_L  LIM)   |   (FIELD*  >  BII1  U  LIM)) 
DO  ; 

EEROB  =  204; 
GO  TO  R9; 
END; 


*  *  * 

V 


IS)  ; 
K.  */ 

THEN 


/*  THE  INDEX  INTO  THE  CASE  STATEMENT  IS  COMPUTED 

REFLECT  IHE  FIELD  AND  OPERATION  DESIRED 

INDX  =  2  *  FIELD*; 

IF  (PUTGET  =  SGETJ  THEN  INDX  =  INDX  -  1; 


TC 


*/ 


no 


ACIICN  OF  CASE  (INDX)  ; 

Case  (1)7  BIT1PAEM  =  valid  sys  process; 

CASE  (2):  ERROR  =  204;   ENDCASE; 
END  OE  CASES; 


ENDCASE; 


R9: 


/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  FRIMITIVE  INTERRUPT  ENABLER (ALL  INT#SAVEI NTS) 
KETOBNj 


1b2 


/************************  ***** 
THIS  ENTRY  POINT  IS  USED  TO  ACCESS  POINTER  DATA.   */ 

DATPTR:  ENIRY(PCE_NUiJB,PUTGET, FIELD*, PTRPARM, ERROR) ; 

DCL  PTRPARM  POINTER; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPT_DISENABLER(ALL_INT,SAVEINIS) ; 

/*  VERIFY  PCB  NUMBER,  ACCESS  ANE  OPERATION.  */ 
IF  (INVALID(PCE  NUMB)) THEN  GO  TO  R10; 

IF  (  (i IELDt  <  PTR_L_LIM)   |  (FIELD*  >  PTR  U  LIM) )  THEN 
DO; 

ERROR  =  203; 
GO  TO  RIO; 
END; 

/*  THE  INDEX  INTO  THE  CASE  STATEMENT  IS  COMPUTED  TC 
REFLECT  THE  FIELD  AND  OPERATION  DESIRED  */ 

INDX  =  2  *  FIELDZ; 
IF  (FUIGZT  =  SiGEX)     THEN  INDX  =  INDX  -  1; 

DO  ACTION  OF  CASE  (INDX)  ; 

EASE  (1)7   PTRPARM  =  MESSAGE  POINTER;   ENDCASE; 

CASE  (2):   MESSAGE  POINTER  =~PTRPARM;   ENDCASE; 
END_OF_CASES; 

R10: 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERR UPT_ENABLER (ALL  I NT,SAVEI NTS) ; 
RETURN; 


LOCAL  PROCEDURE 


/*     **************************** 

INVALID  CHECKS  THE  PCB#  PASSES  TO  INSURE  THAT  THE 
PROCESS  CONTROL  BLOCK  IS  CURRENTLY  ACTIVE  AND  ALSO 
SETS  THE  POINTED  TO  THE  PROPER  PCB  FOR  DATA  ACCESS. 

*/ 

DCL  INVALID  ENTRY  (FIXED  BINARY)  RETURNS  (BIT  ( 1)  )  ; 

INVALID:  PROC(PCB#)  RETURNS  (BIT  ( 1)  )  ; 

DCL  ECB#  FIXED  BINARY; 

IF((RCB#  =  0)  &     (PUTGET  =  5)GET))  THEN 

PCBs  =  CURRENT  PROCESS (PROCESSOR) ; 
IF  ((PCEtf  <  1)   |   (PCBif  >~50))  'IHEN  DO; 
ERROR  =  201  ; 
RETURN  (TRUE)  ; 
END 


PCE  E'lE  =  .PCE  EEF  ARRAY  (PCBff)  ; 
IF  7I-CB  ETR  =  ~"NULL)  THEN  DO; 


EKROli  =  202; 
RETURN  (TRUE)  ; 
END; 
RETURN  (FALSE)  ; 
END  INVALID; 

END  PCBS1R; 
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MODULE  SPECIFICATION 

NAME:   RCE_ HANDLER  "  TYPE:   PRIMITIVE 

PAEAMETEBS 

INPUT  """  OUTPUT     TYPE       CONTENTS 


Parameters  Specified  With  The  Entry  Point  Specification. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 
NAME PARAMEJEES^ PURPOSE. 


Interrupt  Interrupt  Number,    This  module  is  invoked  to  dis- 
Disabler   Save  Vector         able  all  interrupts  while 

UCB  Handler  is  in  execution. 
The  status  of  the  interrupts 
is  saved  in  the  Save  Vector. 

Interrupt  Interrupt  Number,    This  module  is  invoked  tc  re- 
enabier    Save  Vector         enable  all  interrupts  which 

were  disabled  by  tne  current 
module  in  execution. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 

NAME_ t_^ PyiPO^E „ 

Invoked  by  other  primitives  and  only  system  processes. 


DATA  STRUCTURES  USED 

NAME IIJLJ2 11RM -PURPOSE/  VALUES; 

Saveint  Bit(l)     Array  used  to  save  the  status 

Array      of  the  interrupts;  arguement 
in  call  to  Disabler  and 
Enabler. 

Rescurce_    ,       Structure  This  structure  has  been  de- 
control siqned  to  store  administrative 
Block 


Devices,  and  data  storage  con- 
tainers (PCT's)  . 

Assigned   Bit(1)     Determines  if  the  resource 

Control  Block  is  assigned  to 
a  resource. 

Creator    Integer    Process  that  created  the  RCB. 

Owner     Integer    Process  that  has  been  assigned 

control  of  the  resource. 

Ext^Name   Char (3)    External  name  of  the  resource. 

Device_    Bit(1)     Device  access  state.  Values: 
Status"  a)  *f#GO  -  the  device  is  active 

b)  tfKHOLD  -  access  to  files 
and  PCT  foi.  this  device  is 
not  authorized. 

c)  Not  applicable  loi  Sema- 
phore LiCB's. 
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Device_ 

Inane 

Shared 
Private 


Integer 
Integer 


Cntr_Size  Integer 


PCl_Name   Char{8) 
Open_File  Integer 


File_Type  Integer 


Left  Que   Pointer 


fiight_Que  Pointer 


Device  internal  name. 


Resource  access  classification 
Values:  a)  ##SHt<D  or  ##P5IV  - 
shared  or  private  resource. 

a)  Semaphore  -  Buffer,  Job_q# 
Print_Jobs/  etc.  counter. 

b)  File  -  file  length. 
cj  Device  -  not  used. 

d)  PCT  -  file  space  available. 

PCT  external  name. 

Applicable  for  files.  Values: 

a)  ##NOVAIL  -  file  unavailable 

b)  ##AVAIL  -  file  available 
cj  ##READ  -  file  opened  for 

readinq  only 
d)  ##WRITE  -  file  opened  for 
writing  only. 

Not  applicable  for  semaphore 
or  device  resources.  Values: 
a)  ##TEMPF  -  temporary  file  or 
allowed  on  ECT 
permanent  file  or 
allowed  en  ECT 
both  file  types 
ECT. 


b) 
c) 


type  file 
#*PEBMF  - 
type  file 
##TORPF  - 
allowed  on 


Oualifies  queued  messages. 
a)  Semaphore  -  outstanding 

b) 


process  reguest  messages 
File  -  current  file  open 
requests  satisfied. 

c)  Device  -  current  device 
access  reguests  satisfied 

d)  PCT  -  not  used. 


Qualifies  queued  messaaes. 

a)  Semaphore  -  outstanding 
process  release  messages 

b)  File  -  outstanding  file 
open  reguests 

c)  Device  -  outstanding  device 
access  reguests 

d)  PCT  -  outstanding  file 
creation  reguests. 
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L_R  Queue  Based      This  structure  is  used  tc  save 

data  required  for  the  manage- 
ment of  the  resources 
matching  of  messages. 


From       Integer    Internal  name  cf  the  process 

doing  the  Request  or  Release 
saved  in  the  Left/Eight  queue 


for  Semaphore  ECU'S,  respec- 
tively. Internal  name  of  the 
process  accessing  or  request- 
ing access  to  a  file  or  device 
resource;  or  file  creation. 

To        Integer    Internal  name  cf  the  process 

expected  to  do  a  Release  or 
Request,  saved  in  a  Semaphore 
Left/Right  queue. 
Also  used  to  save  the  Sema- 
phore to  be  used  in  an  answer 
to  a  message. 

Priority   Integer    Precedence  of  the  process. 

File_Data  Inteqer    Not  applicable  for  Semaphore 

or  Device  RCE's.  Values: 

a)  Semaphores  -  not  applicable 

b)  Devices  -  net  applicable 

c)  File  Left  Que  -  ##REAE  or 
##WRITE  (file  opened  en  a 
read  or  write  for  a  process 
identified  in  the  FROK 
Field) 

d)  File  Right  que  -  ##EEAD  or 
##WRITE,  frlcEADA  or  tfiWRITS 
(outstanding  read/write 
open  request  sacrificed) , 
#SREADS  or  #*WRITS  (read/ 
write  opened  request  sacri- 
ficed) ,'  or  ##HRITH  (out- 
standing write-open  request 
for  a  non-owned  shared  file 

e)  PCT  Kight_Que  -  dummy  file 
internal  name  for  outstand- 
ing file  creation  requests. 

Msg_Ptr    Pointer    A)  Semaphores  -  qualifies  the 

message  buffer  of  a  process 
doing  a  Request  or  a  temp- 
orary message  buffer  for 
outstanding  Releases 
b)  Not  used  in  the  other  type 
RCB  queues. 

Q_Top      Pointer    Backward  queue  link. 

Q_Eottom   Pointer    Forward  queue  link. 


MODULE  DESCRIPTION 


This  primitive  has  been  implemented  to  provide  resource 
management  facilities  to  tne  various  system  processes  and 
primitives.  These  services  include  creating  and  destroying 
Resource  Control  blocks;  entering  and  getting  data;  ano 
controlling  access  to  the  various  type  resources.  The  entry 
points  utilizing  the  data  structures  defined  above  have  been 
specified  separately. 
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ENTRY  POINI  IBPLEMENTATJlOH 

XINCLUDE  NAMCHGR;   /*****   RGB  HANDLER  *#***/ 

/*  ***********************  ***** 

THIS  PRIMITIVE  HAS  BEEN  IMPLEMENTED  TO  CENTERALIZE  THE 
LOCATION  CI  RESODRCE  DATA  AMD  TO  HIDE  DATA  STORAGE 
METHODS.  IT  PROVIDES  THE  INTERFACE  TO  PROCESSES  AND 
PEIMIIIVES  REQUIRING  SUCH  SERVICES  AS  CREATING  RESOURCE 
CCNTBCL  BICCKS:  DESTROYING  RCBS;  ENTERING  CR  ACCESSING 
DATA:  MANIPULATING  QUEUE  ENTRIES  USED  TO  STORE  DATA 
CONCERNING  AVAILIBILIIY ,  ACCESS,  AUTHORIZATION,  ALLOCATION 
AND  DEALLOCATION  OF  THE  RESOURCES;  AND  MATCHING  OE 
INTERPROCESS  COMMUNICATION  MESSAGES.  */ 

PRIMITIVE_RCE_HANDLER:  PROC  OPTIONS (MAIN) ; 

^INCLUDE  GENEEC; 

^INCLUDE  CSDCL; 

JilNCLUDE  ECEDCL; 

SJINCLUDE  CASESTM; 

/***  RESOURCE  CONTROL  STRUCTURE  ***/ 
DCL  1  RESOURCE  CONTROL  BLOCK  (120)  STATIC, 

2  ASSIGNED  3ITT1)  IMIT((120)   (1)  '  0  •  B)  , 

2  CREATOR  FIXED  BINARY, 

2  OWNER  FIXED  BINARY, 

2  LEFT.QUB  POINTER, 

2  RIGHT  QUE  POINTER, 

2  EXT  NTuiE  CHAR  (8)  , 

2  DEVICE  STATUS  BIT(1), 

2  DEVICE*""INAMS  FIXED  BINARY, 

2  SHARED  PRIVATE  EIXED  BINARY, 

2  CNTR  SIZE  FIXED  BINARY, 

2    PCT    "NAME    CHAR  (6)  , 

2    OPETT    FILE    FIXED    BINARY, 

2  ETLE~TYPE  FIXED  BINARY; 
DCL  1  L  R  QUEUE"  BASED (IRQ  PTR) , 
2~G~ICP  POINTER, 
2  ElOM  FIXED  BINARY, 
2  '10  FIXED  BINARY, 
2  PRECEDENCE  FIXED  BINARY, 
2  PILE  DATA  FIXED  BINARY, 
2  tSG   PTH  POINTER, 
2  Q  BOTTOM  POINTER; 


:L  (ADDEESSOR,  ADDRESSEE,  BAT  A,  BIN  A  ME) 
:l  ERROR  FIXED  BINARY; 


DCL  (ADDEESSOR, ADDRESSEE, DATA, RINAME)   FIXED  BINARY; 
DCJ 


DCL 
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ENTRY  POINT  SPECIFICATION 


MODULE  NAME:   ECB  HANDLER 


ENTRY  NAME; 


CREATE  RCE 


PARAMETERS 
INPUT      OUTPUT 


I 


Type 

RXNalne 

Owner 

Size 

S_or_P 
Mounted 

Dev_Name 

Open 

T  File 


JFYPE 

Integer 

Char  (8) 

Integer 

Integer 

Integer 
Char  (8) 

Integer 

Integer 

Integer 


RIName     Integer- 
Error      Integer 


CONTENTS 


Specifies  resource  type  to  be 
created.  Values  are:  1DEVICE, 
#FILE,  #SEMFOR,  or  #PCT. 

Resource  external  name. 

Owner's  internal  name. 

File  length  or  number  of  re- 
source units. 

Shared  or  private  resource. 

/pCT  external  name  -  for  File 
and  Device  resources  only. 

Device  internal  name  -  fcr  PCT 
and  File  resources  only. 

File  status  -  ##AVAIL  or 
##NOAVL. 

a)  Files  -  ##TEMPE  or  ##EEP.MF 

b)  PCT's  -  ##TEMPF,  ##PEBMF  or 
##TORPF. 

Resource  internal  name. 

Error  condition  code.  Values: 
a)  101  -  invalid  resource  type 
b'i  102  -  RCB  unavailable 


103  -  invalid  resource  name 

104  -  unallocated  resource. 


ENTR!f  POINT  DESCRIPTION 


This  entry  point  is  used  to  create  an  RCB  of  the  type 
specified  and  to  return  the  internal  name.  Only  system 
processes  may  invoke  this  entry  point. 
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ENTRY  POINT  IMPLEMENTATION 

THIS  ENTRY  POINT  TO  RCB  HANDLER  IS  UTILIZED  TO  CREATE  AN 
RCB  OF  IKE  TYPE  SPECIFIED;  TO  ENTER  THE  DATA  IN  THE 
VARIOUS  ECE  FIELDS;  TO  RETURN  THE  RCE  INTERNAL  HAM-E, 
"RENAME";  AND  TO  RETURN  AN  ERROR  CODE,  "ERROR".  */ 

CREATE  RCB:  ENTRY (TYPE  ,RXNAME, CWNR, SIZE, S  OR  P. MOUNTED, 

DEV_NAl1E,OPEN,T_FILE/RlT3AMi;,ERROfi)  ; 

DCL  (TYPE, OWHR, SIZE, DEV  NAME, OPEN , CREATR, LIMIT , I) 

FIXED  BINARY; 
DCL  (RXNAME,  MOUNTED)  CHAR  (8); 
DCL  (S  Oh    P,T  FILE)  FIXED  BINARY; 
DCL  SY3FRO"  BIT  (1)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  FRIKITIVE_INTERRUPT_DISENABL£R(ALL_INT,SAVEINTS) ; 

CREAIR=CUERENT  PROCESS  (SYS  PROCESSOR); 
IF  i  (TYPE  <  1)~(  (TYPE  >  47)  THEN  DO; 
ERROR  =  101;  GO  TO  RETURN1;  END; 

DO_ACTION_OF  CASE  (TYPE)  ; 

CASE(1):  1=1;  LIHIT=SEM_LIMIT;  ENDCASE; 

CASE(2);  I=DEV_L_LIMIT;  LIMIT=DEV_U_LIKIT;  ENDCASE; 

CASE(3):  I=FILE_L_LIMIT;  LIMIT=FIlE_U_IIKIT;  ENDCASE; 

CASE(4):'l=  PCT_L  LIMIT;  LIMIT=  PCT_U_LIMIT;  ENDCASE; 
END  GE  CASES; 

DO  wTJli-E  (  (ASSIGNED  (I)  )  5  (I  <=  LIMIT)):  1  =  1+1;  END; 

IF  (I  >  LIMIT)  THEN  DO;  ERROR=102;  GO  10  RET URN 1 ;  END; 

ASSIGNED  (I)  =  TRUE; 

CREATOR  (I)  =  CREATR; 

OWNER  (I)  =  OWNR; 

LEFT    QUE  (I)      ,    RIGHT    QUE  (I)     =    NULL; 

EXT    "NAME  (I)     =    RXNAME; 

DEVICE    INAMS(I)     =    DEV    NAME; 

DEVICZ~STATUS(I)     =    StrSO; 

SHARED'PRIVAIE  (I)  =  S_OR  P; 

CN1R  SIZE (I)  =  SIZE; 

PCI  HAME  (I)  =  MOUNTED; 

CPE'S  FILE  (I)  =  OPEN; 

FILE~TYPE(I)  =  T_FILE; 

RINAME  =  I: 
GO  TO  RETURN!; 
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ENTRY  POINT  SPECIFICATION 

MODULE    NAME:       RCB_HANDLER  ENTRY    NAME:        RCB_MATCJ3 

PAEAMETEES 

INPUT OUTPUT TYPE CONTENTS 

Addressor  Integer    Internal  name  cf  the  process 

which  did  a  Reguest/Release. 

Addressee  Addressee  Integer    To  which  process  the  Request 

or  Release  was  addressed 

Semaphore  Integer    Internal  name  of  the  message 

semaphore  used  in  the  Request 
or  Release. 

H  ftr      Pointer    Qualifies  the  Requestor's  mes- 
sage buffer  or  the  temporary 
buffer  from  an  unmatched 
Release. 


Q#  Bit(1) 


Left  or  Right  queue  identifier 
Values:  #LEFT  for  an  inccming 
Reguest  or  #RIGHT  for  an  in- 
coming Release. 


Match      Bit(1)     Boolean  which  identifies  to 

the  invoher  if  a  match  has 
been  found. 

Error     Integer    Error  condition  code.  Values: 

a)  103  -  invalid  resource  name 

b)  104  -  unallocated  resource. 


EXTERNAL  CAILS  MADE  BY  OTHER  MODULES 

NAMJ ( Py^OSE 

Allocator  To  determine  if  there  is  an  outstanding 

Release  or  Reguest  which  matches  a  cur- 
rent Request  or  Release,  respectively. 


EHTBY  POINT  DESCRIPTION 


This  entry  pcint  has  been  implemented  to  facilitate  the 
allocation  of  resources  and  matching  of  interprocess 
communication  messages.   In  this  implementation,  the  actual 
techniques  used  to  perform  the  services  indicated  above  and 
the  nature  of  the  queues  are  hidden  from  the  processes; 
hense  modification  has  been  simplified. 
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y***************************** 
THIS  ENTRY  POINT  TO  KCB  HANDLES  IS  UTILIZED  BY  THE  MESSAGE 
ALLOCATOR  TO  DETERMINE  IF  A  REQUEST/RELEASE  MESSAGE 
MATCHES  A  QUEUED-UP  RELEASE/REQUEST  MESSAGE.  "ADDHESSOfi", 
"ADDRESSEE",  "SEMAPHORE",  AND  "Q#"      MUST  BE  SPECIFIED 
BY  THE  CALLING  PROCEDURE.  IF  A  MATCH  IS  NOT  FOUND  "MATCH" 
IS  SET  TO  fALSE.  IF  A  MATCH  IS  FOUND   "MATCH"  IS  SET  TO 
TRUE   AND  "M  PTR"  (MESSAGE  POINTER)  AND  "ADDRESSEE"  ARE 
SET  TO  THE  VALUES  STORED  IN  THE  QUEUE.  */ 

PRIMITIVE  RCE  MATCH:  ENTRY  (ADDRESSOR , ADDRESSEE, S EMAPEOEE, 

M^PTR,Q#,  MATCH,  ERROR)  ; 

DCL  SEMAPHORE  FIXED  BINARY, 
M  PTR  POINTER, 
MITCH  BIT(1)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTEHRUPT_DISENABLER(ALL_INT,SAVEINTS) ; 

MATCH  —    FALSE* 

IF  (VALID  (SEMAPHORE))  THEN  DO: 

IF  (Qi    =#LLFT)  THEN  START  =  RIGHT  QUE  (SEMAPHORE)  ; 

ELSE  START  =  LEFT  QUE  (SEMAPHORE)  : 
IF  (START  =  NULL)  THEN  GO  TO  RETURNS- 
TEMP  =  SI ART: 
IF  (ADDRESSEE  =  0)  THEN 

DO  WHILE  (  -«({TEKP->  TO  =  0)|(TEMP->TO  =  ADDRESSCR)  )  )  ; 
IF  (TEMP->Q  BOTTOM  =  START)  THEN  GO  TO  RETUBN2; 
ELSE   TEM?  =  TEMP->Q  BOTTOM; 


END; 
ELSE 
Do'wHILE  (-.  (  (  (TEMF->TO  =  ADDRESSOE)  j  (TEMP->  TO  =  0)  ) 
6   (TEMP->FROM  =  ADDRESSEE))); 
IF  (TEMP->  Q  BOTTOM  =  START)  THEN  GO  TO  RETURN2; 
ELSE   TEMP  =  TEMP  ->  Q  BOTTOM; 
END; 
ADDRESSEE  =  TEMP->FECM; 
M  PTE  =  IEM?->  MSG_PTR; 
MITCH  =  TRUE  ; 

CALL  EEMCVEQ (SEMAPHORE,  (~<Q#)  ,  TEMP,  START)  ; 
FREE  TEMP  ->  L  R  QUEUE; 
END; 
GO  TO  REIURN2; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   RC£_HANDLER      ENTRY  NAME:   RCBPUTO. 

PARAMETERS 

INPUT ( OUTPUT TYPE ,  CONTENTS 

RINane  Integer    Resource  internal  name. 

Reg  Eel  Bit(1)     Queue  identifier.  Values  are: 

#LEFT  or  #RIGHT;  #OS  or  3USER 
for  the  ready  active  gueue: 
#REDYA. 

Addressor  Integer    Internal  name  cf  the  process 

being  inserted  in  the  gueue. 

Addressee  Integer    Internal  name  of  the  process 

to  which  the  message  is  ad- 
dressed; or  the  semaphore  to 
be  used  in  reply  to  a  file 
creation  task. 

Pri  Integer    Priority  of  the  process  teing 

gueued. 

MsgFtr  Pointer    Qualifies  the  process's  mes- 

sage buffer. 

Data  Integer    a)  Dummy  file  internal  name 

for  outstanding  file  crea- 
tion reguests. 

b)  ##READ  or  ##WRITE  for  file 
open  reguests  which  were 
allocated  (file  left_gue) 

c)  ##READ  or  ##WRITE  for  un- 
allocated open  requests; 
##READA  or  I#WRITA  for  un- 
allocated, sacrificed  file 
open  reguests;  ##READS  or 
##WRITS  for  allocated,  but 
sacrificed,  file  open  re- 
guests; and  ##KRITH  fcr  an 
outstanding  file  open  for 
write  access  to  non-owned, 
shared  file. 


EHIBY  SOIMT  DESCRIPTION 


This  .entry  pcint  is  invoked  to  enter  a  process  by  priority 
into  a  specified  gueue  and  to  save  specific  data. 
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ENTRY_PpIN^_IMPLEMENTATION 


*  *  *  * 


/*  ************************ 

THIS  ENTRY  POINT  TO  RCE  HANDLER  IS  USED  TO  ENTER  A 
PROCESS  ("ADDRESSOR")  BY  PRIORITY  ("PRI")  IN  A  SPECIIIED 

E  RESOURCE 
ijAPDRESSOR"7  "ADDRESSEE", 


;  r 

:n££ 


i 


QUEUE  ("EEC  REL")  FOR  THE 
"ADDRESSOR"7  "ADDRESSEE", 
STORED  IN  THE  APPROPRIATE 


RESOURCE  SPECIFIED  BY  "RINAME". 
"PRI",  "MSGPTR",  AND  "DATA"  ARE 
QUEUE  ELEMENT  EIELDS.  */ 


RCEPUTQ:  ENTRY 


(RINANE,     REQ    REL, ADDRESSOR, ADDRESSEE, ESI, 
iiSGPIfi,DATA7ERROR)  ; 


DCL  PRI  EIXED  BINARY; 

/***  DISENAELE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTBRRUPT_DISENABLER(ALL_INT,SAVEINIS) 


'ALIE  (RINAME)  ) 
R  QUEUE 


THEN  DO; 

SET  (LRQ  PTE) 
FTtG'A    =  ADDRESSORJ 
TO  =  ADDRESSEE; 
PRECEDENCE  =  PRI; 
FILE  DATA  =  DATA; 
'ASG    PTR  =  MSGPTR; 


IF  (Vi 

ALLOCATE  L 
1RQ_PIR  ->" 
LRg  FIR  -> 
LRQ  PIR  -> 
LRQ~PIR  -> 

t  Dp   riT  p   _  N 

CALL"  INSERT  (RI"KAHE,  REQ  REL,LRQ  PTR,PRI} 

END; 

GO  TO  RETURN  3; 
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ENTBY  POINT  SPECIFICATION 

MODULE  NAME:   RCB_HANDLEB      ENTRY  NAME:   £CJ3GETQ_ 

PARAMETERS 

IHPU1 OUTPUT TYPE CONTENTS 

RIName  integer    Resource  internal  name. 

Beq  Eel  Bit(1)     Queue  identifier.  Values  are: 

fLEFT,  SBIGHT,  #GS,  and  «USER. 

Addressor  Integer    Internal  name  of  process  to  be 

removed  from  the  queue. 

Addressee  Integer    Data  stored  in  the  TO  Field 

of  the  gueue. 

MsgPtr    Pointer    Process  message  buffer  pointer 

Data      Integer    Data  stored  in  the  File_Eata 

Field  of  the  gueue. 

Found     Bit(1)     Indicates  if  the  specified 

process  was  found. 

Q_Empty    Bit(1)     Queue  status  after  removal. 

Error     Integer    Error  condition  code.  Values: 

a)  103  -  invalid  resource  name 

b)  104  -  unallocated  resource. 


I  NT  JY  _PO  I  Hl_  DESCRIPTION ( 

This  entry  is  invoked  to  remove  a  process  and  associated 
data  rrca  the  specified  resource  gueue.  The  data  is  returned 
to  the  invoker  and  the  gueue  element  is  deallocated. 
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ENTRY  POINT  IMPLEMENTATION 

THIS  ENTBY  POINT  TO  RCB  HANDLER  IS  USED  TO  REMOVE  A 
PROCESS  ("ADDRESSOR")  FROM  THE  SPECIFIED  QUEUE  ("BEQ  REL") 
ASSOCIATED  WITH  THE  RESOURCE  SPECIFIED  BY  "RINAME".  THE 
DATA  STORED  IN  THE  FIELDS  OF  THE  QUEUE  ELEMENT  IS  RETURNED 
IN  "MSGPTR"  AND  "DATA"  IF  THE  PROPER  QUEUE  ELEMENT  IF 
FOUND.  "FOUND"  IS  SET  TO  TRUE  OR  FALSE  INDICATING  THAT 
THAT  THE  ELEMENT  HAS  OR  HAS  NOT  BEEN  REMOVED.  "Q  EMPTY" 
INDICAIES  THE  STATUS  OF  THE  QUE  AFTER  THE  ELEMENT  HAS 
BEEN  REMOVED.  */ 

BCBGEIQ:  EN.TRY  (RINAME,  BEQ  BEL, ADDEESSOE, ADDRESSEE, KSGPTR, 

DATA, FOUNDTQ^EMPTY, ERROR)  ; 

DCL  (FOUND, Q_EMPTY)  BIT(1); 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INIERRUPT_DISENABLER(ALL_INT,SAVEINIS) ; 

FCUNE,  0  EMPTY  =  FALSE; 

IF     (VALID"  (RINAME)  )     THEN    DO; 

IF     (EEQ    RE:!   =#IEFT)     THEN    START    =    LEFT    QUE(RINAME); 

ELSE    SIlHT   =    RIGHT    QUE  (RINAME); 

IF     (START    =    NULL)     TZ'rtEti    GO    TO    RETURNS; 

TEMP  =  START  — >  Q  BOTTOM" 

DO  WHILE  ((TEMP  -=  START)  S  (TEMP->  FROM  -«=  ADDRESSOB)); 

TEMP  =?   TEMP  ->  Q_EOTTOM; 
END; 

IF  (TEMP  ->  FROM  -.=  ADDRESSOR)  THEN  GO  TO  RETURN4; 
ADDRESSEE  =  TEMP  ->  TO; 
MSGFIR  =  TEMP  ->  MSG  PTR ; 
DATA  =  TEMP  -•>  FILE  TATA; 

CALL  REMOVEQ  (EIi-iAliE,  EEQ  REL,  TEUP,  START)  ; 
IF  (STAR1  =  NULL)  THEN  U    EMPTY  =  TRUE; 
FREE  IEME  ->  L  B  QUEUE;  ~ 
FOUND  =  TRUE; 
END; 
GO  TO  BETURN4; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   BCB  HANDLER      ENTRY  NAME:   RCJJTRANSFEBO. 

PARAKETEES 

INPUT OUTPUT 1IPE , CONTENTS 

RIName  Integer    Resource  internal  name. 

Q#  Bit(1)     Queue  identifier.  Values  are: 

#LEFT  or  #RIGHT 

PIName  Integer    Process  internal  name  which  is 

being  transferred 

Ing  Fin_   Bit(1)     Status  ofQ#  after  transfer. 
Stal 

Newg       Bit(1)     Status  of  opposite  queue  be- 
Start_Stat  fore  transfer. 

Xfered     Bit  (1)     Status  of  transfer. 

Error      Integer    Error  condition  code.  Values: 

aj  103  -  invalid  resource  name 
b)  104  -  unallocated  resource. 


EMTEY  POIW1  DESCRIPTION ^ 

This  entry  pcint  is  invoked  to  transfer  a  process  from  one 
gueue  of  an  ECB  to  the  opposite  queue  of  that  RCB  and  to 
return  the  status  of  both' queues  after  and  before  transfer, 
respectively . 
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£NTRY  POINT  IMPLEMENTATION 

/*  ***********************  ***** 
THIS  ENTRY  POINT  TO  RCB  HANDLER  IS  USED  TO  TRANSFER  A 
PROCESS  ("PINAHE")  FROM  ONE  QUE  ("Q#")  OF  AN  RC3 
("RINAME'')  TO  THE  OTHER  QUEUE.  "XFERED"  INDICATES  THAT 
THE  OPERATION  HAS/HAS  NOT  BEEN  PERFORMED.  "INQ  FIN  STAT" 
INDICATES  THE  STATUS  OF  "Q#"  AFTER  THE  TRANSFER".   ~ 
"NEWQ  START  STAT"  INDICATES  THE  STATUS  OF  THE  QUEUE 
OPPOSITE  "Qff"  BEFORE  THE  TRANSFER.  */ 

RCB  TfcANSFERQ:   ENTRY  (RINAME, Q#, PIN AME , INQ  FIN  STAT, 

NEKQ_START_STAT, XFERED ,  ERROR")  ;  ~ 

DCL  PINAME  FIXED  BINARY; 

DCL  (INQ  FIN  STAT.  NEWQ  START  STAT, XFERED , NEWQ)  BIT(1); 

DCL  (SIAHl1,5'IART2)  POINTER;- 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PEIKITIVE_INTERRUPT^DISENABLEE(ALL_INT,SAVEINIS) ; 

X^EREE  =  FALSE"  ■•.'-■• 

IF  (VALIE  (RINAME)  )  TEEN  DO; 
IF  (Q#  =  frLEFT)  THEN  DO; 

START1,TEHP  =  LEFT  QUE (EINAME); 
STAET2  =  RIGHT  QUE7RINAME) ; 

END; 

ELSn  DO; 
START1,TEMP  =  RIGHT  QUE  (RINAME)  ; 
START2  =  LEFT  QUE  (RINAME); 
END; 
I?  (STARI2  =  NULL)  THEN  NEWQ  START  STAT  =  ##CLOSE; 

ELSE   NEWQ  START  STAT  =  ##OPEN;   ~ 
CALL  LOGKUP7TLMP,riNAME,iPOS) ; 
IF  (IPOS  =  0)  THEN  GO  TO  RETURNS; 
CALL  REMOViiQ  (RINAME, Q#,  TEMP,  START1  )  ; 
IF  (START1  =  NULL   THEN  INQ  FIN  STAT  =  ##CLOSE; 

ELSE  INC_FIN  STAT  =  ##OPEN; 

NEWQ  =  -i  Q*; 

2RI  =  TEMP  ->  PRECEDENCE; 

CALL  INSERT (RINAME, NEWQ, TEMP, PRI) ; 

XFERED  =  TRUE; 
END; 
GO  IC  EEIUEN5; 
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ENTRY  P0IN1  SPECIFICATION 


MODULE  NAMEr   RCB  HANDLER 


ENTRY  NAME:   RCB  FIND 


PARAMETERS 

INPUT      OCTPUT     TYPE 


RC3 
Q# 

FindOP 
Posit 

PINam 


Posit 


PINam 


Error 


Integer 
Bit  (1) 

Integer 
Integer 
Integer 


Datparm    Datparm    Integer 
Pri       Integer 


Integer 


.CONTENTS J 

Resource  internal  name. 


ueue  identifier.  Values  are: 
LEFT  or  #RIGHT. 


Operation  identifier.  Values: 
#FNDOP1,  #FNDOP2,  frFNDOPS, 
#FNDOPU,  and  #FNDOP5. 

Position  in  queue  zo  he  sam- 
pled or  in  which  the  process 
was  found. 

Internal  name  of  process  to 
be  found  or  which  was  found  at 
the  specified  position. 

Data  found  or  to  be  entered. 

Priority  of  the  process  in  the 
gueue. 

Error  condition  code.  Values: 
a)  103  -  invalid  resource  name 
b'i  104  -  unallocated  resource 
c;  108  -  invalid  operation. 


ENIEY  POINT  DESCRIPTION _ 

This  entry  point  provides  such  services  as  searching  a  gueue 
for  a  process  and  returning  position  and  data,  sampling  a 


specified  position  :  u 
element. 


queue,  and  modifying  data  in  a  queue 
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ENTRY_POINT_IMPLEMENTATIO£ 

y************************  ***** 

THIS  ENTRY  POINT  TO  RCB  HANDLER  IS  USED  TO  DETERMINE  THE 
QUEUE  ("#Q")  POSITION  ("POSIT")  OF  A  PROCESS  ("PINAM") 
AKD  ENIEE  CR  GET  A  COPY  Of  DATA.  THE  "PINAM".  'POSIT",  OR 
BOTH  KAY  BE  SPECIFIED  TO  SELECT  A  SPECIFIC  PROCESS,  ANY 
PROCESS  AT  POSITION  ("POSIT")  OR  A  SPECIFIC  PROCESS  AT 
A  SPECIFIED  POSITION.  */ 

RCB  FINE:  ENTRY  (RCB, Q#, FINDOP, POSIT, PINAM,DATPARH , PRI, 

ERROR)  ; 

DCL  (RCB,FINDOP, POSIT, PINAM, DATPARtf, IPOS)  FIXED  BIKARY; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  FRIEITIVE_INTEEEUPT_DISENABLER  (ALL_INT,SA VEINIS)  ; 

IF  (VALID  (RCB))  THEN  DO; 

IF  (  (FINDOP  <  1)  |  (FINDOP  >  5))  THEN  DO; 
ERROR  =  108; 
GO  10  RETURN  6; 
END; 

IF  (Q#  =#LEFT)  THEN  START  =  LEFT  QUE  (RCB)  ; 

ELSE  START  -  EIGHT  QUE  (RCB)  ; 
IP  (SIARI  =  NULL  )  Tb£N  DO; 
DAIPARM,  POSIT  =  0; 
GO  10  EETURN6; 
END; 

IPOS  =  PCSIT  * 
DO_ACTION_Of'cASE (FINDOP) ; 

CISE(-I):  /*  FIND  THE  PROCESS  SPECIFIED  BY  PINAM  J-ND 

RETURN  THE  POSITION  AND  FILE  DATA       */ 
CALL  LOCKUP fSIART,PINAH,IPOS) ; 
IF  (IPOS  =  0)   THEN  DATPARM,  PRI  =  0; 
ELSE  DO;  DATPARM  =  START  ->  FILE  DATA; 

PRI  =  START  ->  PRECEDENCE;  END; 
POSIT  =  IPOS; 
ENECASE; 

CASE  (2):  /*  FIND  THE  PROCESS  SPECIFIED  BY  PINAM  AND 
ENTER  THE  DATA  IN  DATPARM,  RETURN  THE 
POSITION  IN  THE  QUEUE  */ 

CALL  LOOKUP  (START, PINAM, IPOS)  ; 

IF  (IPOS  -•=  0)  THEN  START  ->  FILE  DATA  =  DATPARM; 
POSIT  =  IPOS; 
ENECASE; 


17(J 


CASE  (3):  /*  FIND  THE  SPECIFIED  PROC  AT  THE  SPECIFIED 
POSITION  AND  RETURN  FILE  DATA       ,     */ 
CALL  OUEFOSII  (IPOS, START)  ; 

IF  ((IPOS  =  0)  |  (PINAM  -.=  START  ->  FROM))  THEN  DO; 
DATPARM,  PRI  =  0; 
ERROR  =  108; 
END: 
ELSE  DO;  DATPARM  =  START  ->  FILE  DATA; 

PRI  =  START  ->  PRECEDENCE;  END; 
ENDCASE; 

CASE  (4):  /*  FIND  THE  SPECIFIED  PROCESS  AT  THE 

SPECIFIED  POSITION  AND  ENTER  THE  DATA 
IN  DATPARM  */ 

CALL  QUEPOSIT (IPOS, START) ; 

IF  ((IPOS  =0)   |   (PINAM  ->=  START  ->  FROM))  THEN 
ERROR  =  108; 
ELSE 

START  ->  FILE  DATA  =  DATPARM; 
ENECASE; 

CASE  (5):  /*  FIND  AND  RETURN  THE  PROCESS  NAME  AND  DATA 
AT  THE  SPECIFIED  POSITION  */ 

CALL  QUEPOSII  (IPOS, START)  ; 

IF  (IPOS  =  0)  THEN  PINAM, DATPARM, PRI  =  0; 
ELSE  DO; 

PINAM  =  START  ->  FROM; 
EATPARM  =  START  ->  FILE  DATA; 
PRI  =  START  ->  PRECEDENCE; 
END; 
ENECASE: 
END  CF  CASES; 
ENDT   " 
GO  TC  RE1URN6; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   RCB  HANDLER      ENTRY  NAME:   fIND_INAME 

PAR AM  ETEES 

INPUT OUTPUT TYPE CONTENTS 

Type  Integer    Resource  type  identifier. 

Values:  #PCT,  #DEVICE,  #FIIE 
and  #SEMFOR. 

RXName  Char  (8)    Resource  external  name. 

EIName    Integer    Resource  internal  name. 

Error     Integer    Error  condition  code.  Values: 

a)  101  -  invalid  resource  type 

b)  111  -  unidentilied  resource 
external  name. 


ENTEY_POINT_EESC£IPTION_ 


This  entry  pcint  finds  and  returns  a  resource  internal  name 
when  provided  a  valid  external  name  for  a  resource  for  which 
an  RCB  has  been  created. 


MIJY_P.OINI_IJPLEJE  NATION 


yif.     **************************** 

THIS  ENTRY  POINT  TO  SC5  HANDLER  RETURNS  THE  INTERNAL  NAME 
OF  A  RESOURCE  ("RINAME")   WHEN  GIVEN  THE  EXTERNAL  NAME, 

""!")  PROVIDED  A 

V 


OF  A  RESOURCE  ("RINAME")  WHEN  GIVEN  THE  '. 
("RXNAME")  AND  THE  RESOURCE  CLASS  ("TYPE1 
RESOURCE  EY  THAT  NAME  HAD  BEEN  CREATED. 


FIND_INAME:  ENIRY  (TYPE  , RXNAME, RINAME, ERROR)  ; 

DCL  (EASE, TOP)  FIXED  BINARY; 

/***  DISENA3LE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPT_DISENABLER  (ALL_INT,  SA  VEIN  IS)  ; 

IF  (TYPE  =  #SEMFOR)  THEN  DO;  BASE  =  3EM  I  LIMIT; 

TOP  =  SEM  IIEIT; 
END; 
ELSE  IF  (TYPE  =  ffFILE)  THEN  DO;  BASE  =  FILE  L  LIMIT; 

TOP  =  FILE  U  IIMIT; 
END; 
ELSE  IF  (TYPE  =  #LEVIC£)  THEN  DO; 

BASE  =  DEV  L  LIBIT; 
TOP  =  DEV  U  IIMIT; 
END; 
ELSE  IF  (TYPE  =  #PCT)  THEN  LO; 

BASE  =  PCT  L  LIMIT; 
TOP  =  PCT  U  IIMIT; 
END; 
ELSE  DO;  ERROR  =  10  1  ; 

GO  TO  BETUHH7:   END; 
DO  I  =  EASE  TO  TOP  WHILE  (EXNAME  -•  =  EXT  NAME(I));  END; 
IF  (I  >  TOP)  THEN  ERROR  =111; 
ELSE  RINAME  =  1; 
GO  TO  BE1UBN7; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   RCB-  HANDLES      ENTRY  NAME;   DESTROY  RCB 

PAR  AM  ETE  BS 

INPUT OUTPUT, £YPE CONJTENli , 


RIName  Integer    Resource  internal  name. 

Addressor  Integer    Internal  name  of  the  process 

destroying  the  resource. 

ProVec     Integer    List  of  processes  found  en  the 
Vectcr     queues  of  the  resource  being 
aestroyed. 

Error      Integer    Error  condition  code.  Values: 

a)  117  -  process  not  autho- 
rized to  destroy  the  re- 
source. 

103  -  invalid  resource  name 

104  -  unallocated  resource. 


ENTRY  POINT  DESCRIPTION 


"el 


This  entry  pcint  is  invoked  to  destroy  a  specified  resource 
provided  the  addressor  is  the  owner  or  the  creator  of  the 
resource.  Any  process  on  the  resource  queue  is  returned  to 
the  invoker  fcr  proper  disposition. 


182 


ENTRY  P0IN1  IMPLaaBNTATIOH 

/**  ************************** 
THIS  ENTRY  -POINT  TO  RGB  HANDLER  IS  USEE  TO  DESTROY 
A  SFECIEIED  RGB  ("RINAME")  .  THE  PROCESS  REQUESTING 
DESTRUCTION  (" ADDRE550R")  MUST  BE  THE  CREATOR  OF  THE 
RCE  OR  AN  EttROR  TOR  THAT  PROCESS  IS  RAISED.  ALL 
PROCESS  INTERNAL  NAMES  QUEUED  ON  THIS  RCE  ARE 
IDENTIFIED  BY  SETTING  A  BIT  EIELD  IN  EBOVEC  TO  TRUE. 
THIS  VECTOR  IS  UTILIZED  BY  THE  INVOKING  PROCESS  TO 
RELEASE  MESSAGES  TO  THE  SUPERVISOR  CONCERNING  THE 
NON-EXISTANCE  OF  THIS  RESOURCE  AND  THE  PROCESSES 
USING  IT.  */ 

DESTROY^RCB:  ENTRY  (RINAME, ADDRESSOR, PROVEC, ERROR)  ; 

DCL  QNE  BIT  (1)  ; 

DCL  £BOVEC(*)   EIT  (1)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTEEEUPI_DISENABLER (ALL_INT,SA VEINIS) ; 


(VALID  (RINAME)  )  THEN  DO; 
(  (ADDRESSOR  -*=  CREATOR JRINAME)  ) 
(ADDRESSOR  -»=  OWNER  (RINAME)  ))  Tl 


IF 
IF 

"IHEN  DC; 
ERROR' ='  117; 
GO  TO  RETURN8; 

END: 
IF  ((LEFT  QUE  (RINAME) ->=NULL)  |  (RIGHT  QUE  (RINAME) -=NULL)  ) 
THZN~DO; 

PROVEC(O)  =  TRUE; 

QNR  =  #LEFT; 

START  =  LEFT  QUE  (RINAME)  ; 

DO  J  -  1  TO  "2; 

DO  WHILE  (START  -.=  NULL)  ; 
TEMP  =  START  ->  Q  TOP; 
IF  (TEMP  ->  FROM  ^=  AEDRESSOR)  IHEN 

PROVEC(TEMP  ->  FROM)  =  TRUE; 
CALL  REMOVEQ (RINAME, QNR, TEMP, START)  ; 
FREE  TEMP  ->  L  R  QUEUE; 
END; 

START  =  RIGHT  QUEYEINAME) ; 
QNR  =  BRIGHT;- 
END; 
END; 
ASSIGNED  (RINAME)  =  FALSE; 
END; 
GO  TO  RETURNS; 
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ENTRY  POINT  SPECIFICATION 

MODULE  NAME:   BCB  HANDLER      ENTRY  NAME:   RCB_CHAHDAT 

PARAMETERS 

INPUI      OUTPUT     TYPE       CONTENTS 


RIName  Integer    Resource  internal  name. 

PutGet  Bit(1J     Operation  identifier.  Values: 

#PUT  or  #GET  to  enter  or  get 
a  copy  of  data,  respectively. 

Field  Integer    RCB  field  identifier.  Values: 

a)  #PCTNAM  -  PCT  external  name 

b)  #XNAME  -  external  name. 

Cdata      Cdata     Char  (8)    Transfer  of  character  data. 

Error      Integer    Error  condition  code.  Values: 

a)  103  -  invalid  resource  name 

b)  104  -  unallocated  resource. 


ENTFY  POINI  DESCRIPTION 


Invoked  to  access  character  type  data.  Implemented  as  a 
generic  entry  point  to  frimitive^RCBData. 


M2M_JL9I1J3_IM  LSMJNJAJ:IC)JN 

/**#******#**************♦**#* 
THIS  ENTRY  POINT  TO  RCB  HANDLER  IS  USED  10  ACCESS 
CHARACTER  TYPE  DATA.  "RINAME"  SPECIFICES  THE  RCB  NUMEER; 
"PUTGET"  SPECIFIES  THE  OPERATION  TO  BE  PERFORMED  (#PUT  OR 
#GEI) ;  "FIELD"  SPECIFIES  THE  RCB  FIELD  (DEFINED  BY  THE 
#VARIAtLES) ;  AND  "CDATA"  CONTAINS  THE  DATA  TO  BE  ENTERED 
OR  IS  SET  10  THE  VALUE  TO  BE  RETURNED.  */ 

DCL   FIEID  FIXED  BINARY; 
LCL   EUTGEI  BIT(T)  ; 

RCB_CHARDAI:  ENTRY (RINAME, PUTGET, FIELD, CDATA , ERROR) ; 

LCL  CDATA  CHAR  (8)  ; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  £RIKITIVE_INTLRRUPT_DISENABLER (ALL_INT, SA VEINIS) ; 

IF  (VALID  (RINAME)  )  THEN  DO; 
DO  ACTION  OF   CASK (FIELD) : 

CASE  (1)7  IF  fPUTGET=#P8T)  THEN  EXT  NAME  (RINAME) =CDATA; 
ELSE  CDATA  =  EXT  NAME (BINlME) ; 
ENECASE; 
CASE  (2):  IF     (PUIGET=#PUT)  THEN  PCT  N  Ari  E  (RINAME)  =  CD  ATA  ; 
ELSE   CDATA  =  PCT_NAM E (RINAME)  ; 
ENECASE; 
END  OE  CASES; 
END:   ~ 
GO  TO  BEIUBN9; 
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ENTRY  POINT  SPECIFICATION 
MODULE  NAME:   RCB  HANDLER      ENTRY  NAME:   RCB_FIXBDA^ 

PARAMETERS 

INPUT OJJTPUT TYPE CONTENTS . 

RIName  Integer    Resource  internal  name. 

PutGet  Bit(1)     Operation  identifier.  Values: 

#PUT  or  #GET  to  enter  or  get 
"a  copy  of  data,  respectively. 

Field  .  Integer    RCB  field  identifier.  Values: 

a)  #CRATR  -  resource  Creator 


b)  #OtJMER  -  resource  Owner 

c)  #DINAME  -  Device  internal 
name 

d)  #CNT  SZ  -  Counter  or  file 
length 

e)  #OFILE  -  Open_File  data 

f)  US    OR  P  -  Shared  Private 

g)  tTFlLl!  -  File_Type  data. 

Fdata      Fdata      Integer    Transfer  of  integer  type  data. 

Error     Integer    Error  condition  code.  Values: 

a)  103  -  invalid  resource  name 

b)  104  -  unallocated  resource. 


SNTEI_PCI]]T_DESCRIPTION ^_. 

Invoked  to  access  integer  type  data.  Implemented  as  a 
generic  entry  point  to  Primitive^RCBData. 
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ENTRY  P0IN1  IBPLEMBMTATION 

/*  **************************** 

THIS  ENTRY  POINT  TO  RCB  HANDIER  IS  USED  10  ACCESS  FIXED 
BINARY  TYPE  DATA.  "RINAME"  SPECIFICES  THE  BCB  NUMEER; 
"PUTGET"  SPECIFIES  THE  OPERATION  TO  BE  PERFORMED  (#PUT  OR 
#GET)  ;  "FIELD"  SPECIFIES  THE  RCB  FIELD  (DEFINED  BY  THE 
#VARIAELES) ;  AND  "FDATA"  CONTAINS  THE  DATA  TO  BE  ENTERED 
OR  IS  SET  TO  THE  VALUE  TO  BE  RETURNED  */ 

RCB_FIXEDAT:  ENTRY  (RINAME,  PUTGET  ,  FIELD,  FDATA, ERROR)  ; 

DCL  FDATA  FIXED  BINARY; 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRI£ITIVE_INTEREUPT_DISEyAELEfi(ALL_INT,SAVEINIS}  ; 

IF  (VALID  (RINAME)  )     THEN  DO; 
OF   CASE  (FIELD)  ; 
:    IF  (PUTGET  =  #PUT)THEN  CREATOR  (RINAME) =FDATA; 
ELSE  FDATA  =  CREATOR (RI NAME) ; 
EN  DCASE • 
CASE  (2):  IF  (PUTGET  =  £PUT)  THEN  OWNER  (RINAME)  =  FDATA; 
ELSE  FDATA  =  OWNER  (RINAME)  ; 
ENDC A SE • 
CASE(3):*IF  (PUTGET  =  #PUT)  THEN 

DEVICE  INAME(EINAME)  =  FDATA; 
ELSE  FDATA  =  DEVICE  TNAME  (RINAME)  ; 
ENECASE; 
CASE  (4):  IF  (PUTGET  =  #PUT)  THEN 


DO  ACTION  OF 
EASE  (1) 


ELSE  F 


CNTE  SIZE  (RINAME) 
DATA  =  CNTR_S"IZE (RINAME) ; 


=  FDATA; 


ENDCASE; 
CASE  (5):  IF  (PUTGET  =  #PUT)  THEN 


OPEN  FILE  (RINAME)  =  FDATA; 
ELSE  FDATA  =  OPEN  "FILE  (RINAME)  ; 
ENDCASE; 
CASE  (6):  IF  (PUTGET  =  #PUT)  IHEN 

SHARED  PRIVATE  (RINAME)  =  FDATA; 
ELSE  FDATA  =  SHARED  PRIVATE  (RINAME)  ; 
EN  DCASE •  ~ 

CASE (7):  IF  (PUTGET  =  #PUT)  IHEN 

FILE  TYPE  (RINAME)  =  FDATA; 
ELSE  FDATA  =  FILE_TYPE (RINAME) ; 
ENDCASE; 
END  OF  CASES; 
END;   ~ 
GO  TO  REIURN10; 
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ENTRY  P0IN1  SPECIFICATION 


MODULE  NAME:   RCB  HANDLER 


ENTRY  NAME:   RCB_BIT£ATA. 


PARAMETERS 

INPUT OUTPUT. 

RINaae 

PutGet 


Field 


Bdata 


Bdata 
Elror 


.TYPE 

Integer 
Bit(1) 


CONTENTS 


Resource  internal  name. 


Operation  identifier.  Values: 

#PUT  or  #GET  to  enter  or  get 

a  copy  of  data,  respectively. 

Integer    RCB  field  identifier.  Values: 


Bit(1) 

Integer- 


s' 
t 


#DSTAT  -1  Device  Status  data 
#.L_QU2  -  left  Que  status 
#R  QUE  -  Right_Que  status 
#AS"GND  -  Assigned  data. 


Transfer  of  bits  data. 

Error  condition  code.  Values: 
a)  103  -«  invalid  resource  name 

104  -  unallocated  resource. 

107  -  invalid  put  operation 

attempted  in  queue  header 
d)  119  -  invalid  put  operation 

attempted  in  assigned  field 


ENTRY  POINT  DESCRIPTION 


Invoked  fcr  transfer  of  bit  type  data,  implemented  as  a 
generic  entry  point  to  Primitive_RCBData. 
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ENTRY_POINT_XHPLEMENTATION 

•  *  ***********************  ***** 
THIS  ENTRY  POINT  TO  RCB  HANDLER  IS  USED  TO  ACCESS  SITS 
TYPE  DATA.  "RINAME"  SPECIFIES  THE  RCB  NUMBER;  "PUTGET" 
SPECIFIES  THE  OPERATION  TO  EE  PERFORMED  (#PUT  OR  #GET) ; 
"HELD"  SPECIFIES  THE  RCB  FIELD  (DEFINED  BY  THE  SVARI- 
ABLES)  ;  ANE  "BDATA"  CONTAINS  THE  DATA  TO  BE  ENTERED  CR 
IS  SET  TO  THE  VALUE  TO  BE  RETURNED  */ 

ECB_BITBATA:  ENTRY  (RINAME, PUTGET, FIELD, BDATA, ERROR)  ; 

DCL  BEAIA  BIT(1)  ; 

,***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTEERUPT_DISINABLEE (ALL_I NT, SAVEINIS) ; 

IF  (VALID  (RINAME) )  THEN  DO; 
DC  ACIICN  OF   CASE  (FIELD); 

CASEM):  IF  (PUTGET  =  #PUT)  THEN 

DEVICE  STATUS  (RINAME)  =  EEATA; 
ELSE  BDATA  =  DEVICE  STATUS  (RINAME)  ; 
EN  ECASE ' 
CASE(2):  IF  (PUTGET  =  #PUT)  THEN  ERROR  =  107; 

ELSE  IF  (LEFT  QUE  (RINAME)  =  NULL)  THEN 

BDATA  =  TRUE; 
ELSE  BDATA  =  FALSE; 
ENDCASE; 
CASE(3):  IF  (PUTGET  =  #PUT)  THEN  ERROR  =  107; 

ELSE  IF  (RIGHT"  QUE  (RINAME)  =  NULL)  THEN 

BDATA  =  TRUE; 
ELSE  BDATA  =  FALSE; 
E  N  E  C  A  S  E  ' 
CASE  (4):  I?  <PUTGET=  5JPUT)  THEN  ERROR  =  119; 
ELSE  BDATA  =  ASSIGNED (RINAM E) ; 
FNECASE; 
END  CF  CASES: 
END;   *" 
GO  IC  REIURN11 ; 
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LOCAL    PROCEDURES 


/*   **************************** 

THE  FOLLOWING  LOCAL  PROCEDURES  ARE  USiSD  TO  PERFORM 
FUNCTIONS  WHICH  ARE  COMMON  TO  SEVERAL  ENTRY  POINTS       */ 


/*  **************************** 

VALIE  CHECKS  THAT  "RCbNR"  IS  WITHIN  fiANGE  AND  THAT  THE 
RCB  IS  CURRENTLY  ACTIVE.  */ 

VALID:  PROC  (RCBNR)  RETURNS  (BIT  ( 1) )  ; 
DCL  RCBNR  FIXED  BINARY; 
IF  (  (RCENR  <  1)  J 

[RCENR  >  SEK  LIMIT)  6  (RCENR  <  DEV  '  L  LIMIT))   J 
(BCBHE  >  BEV~U  LIMIT)  6  (RCENR  <  fill  L  LIMIT) )   | 
;  (RCBNR  >  FILE  U  LIMIT)  &     (RCENR  <  PCI~L  LIMIT))  | 
BCBSS  >  PCI  U~LIMIT) )  THEN  DO;        "  ~ 
2RROR  =  103;*"  "RETURN  (FALSE)  ;  END; 
IF  (-«ASSIG-NED  (ECrNR)  )  T-HEJS  DO; 

ERROR  =  104;  RETURN (FALSE) ;  END; 
RETURN  (TRUE)  ; 
END  VALID; 


/*  ***********************  ***** 

RlhOVIQ    REMOVES  THE  QUEUE  ELEMENT  ("ELMT")  EROM  THE  CUEUE 
("QNUM")  ASSOCIATED  WITH  IHE  RCB  NUMBER  ("BCB") .  "TOEELMT" 
SPECIFIES  IHE  TOP  ELEMENT  IN  THE  QUEUE.  */ 


R  £  K  0  V  E  G 

DCL 


Q:  EPOC (RCB, QNUM, ELMT, TOPELMT) ; 

CNUM  Ell  (1)  , 

(ELMT, TOPELMT, TEMP, TEMPI)  POINTER, 


RCB  FIXED  BINARY; 
TEMP  =  ELMT; 
TEMPI  =  TOPELMT; 

IF  ((IEMP  =  TOPELMT)  &     (TEMP  ->  Q  TOP  =  TOPELMT)) 
THEN  DO;  *" 

/*  REMOVE  THE  ONLY  ELEMENT  IN  THE  QUEUE   */ 
IF  (QNUM  =  #LE?T)  THEN  LEFT  QUE  (RCB)  , TOPELMT  =  NULL; 
ELSE  RIGHT  QUE  (RCB)  ,  TOPELlT  =  NULL; 
RETURN; 
END; 
ELSE  DO " 

IE  (TEMPI  =  TEMP)  THEN 

/*  REMOVE  THE  TOP  ELEMENT  IN  THE  QUEUE   */ 
IF  (QNUM  =#1EFT)  THEN 

LEFT  QUE  (RCE)  =  TEMP  ->  Q  EOTTOM; 
ELSE  RIGHT  QUE  (RCB)  =  IEMP  ->  Q  BOTTOM; 
END; 
/*  RESET  THE  QUEUE  LINKAGE  TO  REMOVE  THE  ELEMENT   */ 
TEMPI  =  TEMP  ->  Q  EOTTOM; 
TEMPI  ->  Q  TOP  =  TEMP  ->  Q  TOP; 
TEMPI  =  IZBP  ->  Q  TOP; 

TEMF1  ->  Q  BOTTOM~=  TEMP  ->  Q  BOTTOM; 
RETURN; 
END  hIMOVEQ; 
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/*  **************************** 

INSERT  INTERS  THE  QUEUE  ELEMENT  ("PTR")  IN  THE  RCB 
("F.INAHE")  QUEUE  SPECIFIED  ("L  0R  R")  BY  PRIORITY  ("PRI")  . 

-   "  */ 

INSERT:  FROC(RINAM£,L  OR  8, PTR, PRI); 
DCL  (EINAME,PRI)  FlXED~BINARY ; 
DCL  (PTR, START. TEKP)  POINTER; 
DCL  I  OR  R  BIT  (1)  : 
LCL  EEPIT  EIT(1)_  iSITCO'B); 
IF  (L  OR  R  =  J?  LEFT)  THEN  DO; 
SlAlT  =  LEFT  QUE(RINAME); 
IF  (START  =  HULL)  THEN  EMPTY  =  TRUE; 

ELSE.  IF  /START  ->  PRECEDENCE  >=  PRI)  THEN  GO  TO  FIND; 
LEET  QUEiRINAME)  =  PTR; 

END; 
ELSE   DO; 

SIART  =  RIGHT  QUE(RINAME); 
IF  (START  =  rfOLL)  THEN  EMPTY  =  TRUE; 

ELSE  IF  (START  ->  PRECEDENCE  >=  PRI)  THEN  GO  TO  FIND; 
RIGHT  QUE(RINAME)  =  PTR; 
ENDT 
IF  (EMPTY)  THEN  DO; 

PTR  ->  Q  TOP,  PTR  ->  Q  BOTTOM  =  PTR; 
RETURN;  "  T 

END; 
TEMP  =  START; 
GO  TC  ENI; 
FINE:  TEMP  =  START  ->  Q  BOTTOM; 

DC  WHILE  ((TEMP-i=SxART)  &     (TEMP->PRECEDENCE>=FRI)  )  ; 

TEMP  =  TEMP  ->  Q  BOTTOM; 
END; 
ENT:  PTR  ->  Q  BOTTOM  =  TEMP; 

START,  PTR  ->  Q  TOP  =  TEMP  ->  Q  TOP; 
1EHE  ->  Q  TOP,  START  ->  Q  BOTTOn  =  PTR; 
RETURN;   "" 
END  INSERT ; 


/*     **************************** 

LOOKUP   SEARCHES  THE  QUEUE  BEGINNING  IvITH  THE  ELEMENT 
"START"  FOE  PROCESS  SPECIFIED  3Y  "NAM".  IE  THE  PROCESS 
IS  FOUND  "START"  IS  SET  TO  THE  POINTER  TO  THE  PROCESS 
AND  IPOS  IS  SET  TO  THE  PROCESS'  POSITION  IN  THE  QUEUE. 
IF  THE  PROCESS  IS  NOT  FOUND  "IPOS"  IS  SET  TO  ZERO.        */ 

LOOKUP:  PRCC(START, NAM, IPOS) ; 
DCL  (STABT,TEMP)  POINTER, 

(NAM, IPOS,  I)  FIXED  BINARY; 
TEMP  =  S'lART; 
1=1; 

IF     (TEMP  ->  FROM  -.=  NAM)  THEN  DO; 
TEMP  =  START  ->  Q  BOTTOM; 
1  =  2; 

DO  WHILE  (  (TEMP  -=  START  )  &     (TEMP  ->  FROM  -*=  NAH)  )   ; 
1=  1+1; 

TEMP  =  TEMP  ->  Q  BOTTOM; 
END; 
END; 
IF  (TEMP  ->  FROM  i=  NAM)  THEN  IPOS  =  0; 

ELSE   IPOS  =  I; 
STAR1  =  TEMP; 
FETUBN; 
LND  LCOKUPj 
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QOEPOSII  RETURNS  THE  POINTER  TO  THE  PROCESS  IN  THE 
POSITION  SPECIFIED  BY  "IPOS"  IN  THE  QUEUE  STARTING  WITH 
"START".  "START"  IS  SET  TO  THE  RETURN  POINTER  IF  THE 
PROCESS  IS  FOUND  ELSE  "IPOS"  IS  SET  TO  ZERO.  */ 

QDEPOSIT:  PEOC (IPOS, START) ; 
DCL  (IPOS,I)  FIXER  BINARY, 

(START, TEMP)  POINTER; 
1EKP  =  START  ->  Q  BOTTOM; 

1=1; 

DO  WHILE  (  (I  <  IPOS)  &  (TEMP  -•=  START)  )  ; 
TEMP  =  TEMP  ->  Q  BOTTOM; 
1=1+1; 
END; 
IF  (  I  =  IPOS)  THEN  /*  DONE  */  START  =  TEMP  ->  Q  TCP; 

ELSE  /*  NOT  DONE  */  IPOS  =  0; 
RETURN; 
END  QUEPOSIT; 


RETURN  1:  RITUEN2:  RETURN3:  RETURN4:  RETURN5:  RETURN6: 
RETURN7:  RETURNS:  RETURN9:  RETURN10:  RETURN11: 

/***  ENABLE  THE  INTERRUPTS  ***/ 
CALL  PRI£ITIVE_INT£RRUPT_ENABLER(ALL_INT,SAVEINTS)  ; 

END  PRIMITIVE_RCB_HANDLER; 
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MODULE  SPECIFICATION 

NAME:   INTERRUPT  ENABLES  "  TYPE:   PRIMITIVE 

PARAMETERS 

INPUT      OUTPUT     TYPE       CONTENTS 


Interrupt  Integer    If  not  zero,  it  identifies  the 

interrupt  to  be  enabled. 

Save_int  Integer    If  interrupt  is  zero,  it  iden- 

Array      tifies  all  interrupts  to  be 
enabled. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 
MM ; PARAMETERS PURPOSE. 

None. 


EXTERNAL  CALLS  MADE  EY  OTHER  MODULES 

NAMJ r , PURPOSE 

Invoked  by  ail  primitives  and  the  Interrupt  Handler  upcn 
completing  execution. 


DA1A  STRUCTURES  USED 

NAME lIMhM TYPE PURPOSE/VALUES 

Intrupt  Bit(1)     External  structure  containing 

Array      the  current  status  of  the  sys- 
tem interrupts.  A  ' 1'  indi- 
cates the  interrupt  is  enabled 
and  a  '0'  indicates  that  it  is 
disabled. 


MODULE  DESCRIPTION 

Tnis  primitive  was  designed  to  enable  all  the  interrupts  set 
in  the  array  save  vector  if  the  parameter  interrupt  equals 
zero  otherwise  only  the  specified  interrupt  is  enabled. 
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WOpUL£_iKFLiHENTATION 

^INCLUDE  NAHCHGfi;       /****#  INTERRUPT  ENAE1EE  *****/ 
/*  THIS  PRIMITIVE  WAS  DESIGNED  TO  ENA3LE  ALL'THE 
INIERRUPTS  SET  10  TRUE  IN  THE  ARRAY  SAVINT  IF 
INTERRUPT*  IS  ZERO  (0) ,  OR  TO  ENABLE  THE  SPECIFIC 
INTERRUPT  SPECIFIED  BY  INTESEUPT#  */ 

PRIMITIVE_IN1ERRUPT_ENABLER:  PROC  (INTERRUPT* ,SAVEINT)  ; 

^INCLUDE  INTACTV; 

DCL  INTERRUPT*  FIXED  BINARY (15), 

SAVEINT  (16)  BIT(1);    /*  DIMENSIONED  NUMBINT  */ 

IF  (INTERRUPT*  =  0)  THEN   /*  RENABLE  FROM  SAVEINT  */ 

INTEUPT  =  SAVEINT; 
/*  INTHUPT  CONTAINS  THE  CURRENT  STATUS  OF  THE  SYSTEM. 

INTERRUPTS.  A  1  INDICATES  THE  INTERRUPT  IS  ENABIEE; 

A  0  INDICATES  THE  INTERRUPT  IS  DISENABLED  */ 

ELSE  INIBUPT  (INTERRUPT*)  =  ' 1'B; 
/*  ENABIE  A  SINGLE  INTERRUPT  */ 

RETURN; 
END  PRIMITIVE_INTERRUPT_ENABLER; 
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MODULE  SPECIFICATION 

NAME:   INTEREOPT  BIS ABLER  TYPE:   PRIMITIVE 

PARAMETEBS 

INPUT PJJTPUT TIPE CONTENTS 

Interrupt  Integer    If  not  zero,  it  identifies  the 

interrupt  to  be  disabled. 

Save  int   Integer    If  interrupt  is  zero,  it  is 

Array      used  to  save  the  status  cf  all 
interrupts  being  disabled. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 
NAME PARAMETERS PURPOSE, 

None. 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Invoked  ry  all  primitives  and  the  Interrupt  Handler  to 
prevent  interrupts  during  execution. 


DATA  STRUCTURES  USED 

NAMJi, FIELD TYPE „  PURPOSE/ VAL  UES _~ • 

Intrupt  Bit (T)     External  structure  containing 

Array      the  current  status  of  the  sys- 
tem interrupts.  A  '  1'  indi-. 
cates  the  interrupt  is  enabled 
and  a  '0'  indicates  that  it  is 
disabled. 


MODULE  DESCRIPTION 


This  primitive  was  designed  to  disable  all  the  interrupts 
currently  enabled  and  to  return  the  current  interrupt  status 
in  the  save  vector  if  the  interrupt  parameter  equals  zero 
otherwise  only  the  interrupt  specified  is  disabled. 
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MODULE  IMPLEMENTATION 

^INCLUDE  NAMCHGR;       /*#***   INTERRUPT  DISENABLER  *****/ 
/*  THIS  PRIMITIVE  WAS  DESIGNED  TO  DISENABLE  ALL  THE 
INTERRUPTS  CURRENTLY  SET  AND  TO  SAVE  THE  CURRENT 
IN1ERRUFT  STATUS  IN  THE  ARRAY  SAVEINT,  IF  INTERRUPTS 
EQUALS  ZERO  (0)  OTHERWISE  DISENABLE  THE  SPECIEIC 
INTERRUPT  INDICATED  BY  INTERRUPTS  */ 

PRIMITIVE_INTERRUPT_DISENA3LEfi:  PROC  (INTERRUPT* , SAVEINT)  ; 

9SINCLUDE  INTACTV; 

DCL  INTERRUPT*  FIXED  BINARY (15), 
SAVEINT  (16)  BII(1)  ; 

IF  (INTERRUPTS  =  0)  THEN  /*  DISENABLE  ALL  INTERRUPTS 
AND  SAVE  THE  CURRENT  CONFIGURATION  IN  SAVEINT   */ 

DO; 

/*  INTRUPT  CONTAINS  THE  CURRENT  STATUS  OF  THE  SYSTEM 
INTERRUPTS.  A  1  INDICATES  THE  INTERRUPT  IS  ENABLED; 
A  0  INDICATES  AN  INTERRUPT  IS  DISENABLED  */ 

SAVEINT  =  INTRUPT; 
INTRUPT  =  • 0«  B; 
END; 

ELSE  /*  DISENABLE  A  SINGLE  INTERRUPT  */ 
INIRUET  (INTERRUPTS)  =  «0«B; 

END  PEIMITIVE_INTEERUPT_DISENABLER; 
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MODULE  SPECIFICATION 

NAME:   SAVE STATE  TYPE:   PJIM^TIJE 

PARAMETEES 

INPUr Q11RR1 ^-IIRM. CONTENTS 

P-Inaae  Integer    Process  internal  name. 

Processor  Integer    CPU  on  which  the  process  being 

saved  was  executing. 

Error     Integer    Returns  error  condition  code. 


EXTERNAL  CALLS  MADE  TO  OTHER  MODULES 

NAME PARAMETERS PURPOSE 

Interrupt  Interrupt  Number,    This  module  is  invoked  to  dis- 
Disabler   Save  Vector         able  all  interrupts  while 

Savestate  is  in  execution. 

Interrupt  Interrupt  Number,    This  module  is  invoiced  to  re- 
enatler    Save  Vector         enable  all  interrupts  which 

were  disabled  by  the  current 
module  in  execution. 

PC3DAIA    Process  I-Name,  This  module  is  invoked  tc  save 

Put/Get  Parameter,  the  contents  of  the  CPU  regis- 

fieid  Identifier,  ters  on  which  Process  I-Name 

Data  Parameter,  was  in  execution. 
Error  Parameter 


EXTERNAL  CALLS  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Scheduler  Save  the  state  of  a  process  which  is 

being  preempted. 

Request  Save  the  state  of  a  process  whose  re- 

blocked  on  a  request  for  a  message  or 
resource. 

Interrupt  Handler    Save  the  state  of  the  current  process  in 

execution  on  the  Operating  System  pro- 
cessor until  the  current  interrupt  is 
handled. 
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DATA  STRUCTURES  USED 

NAME FIELD TYPE PfiRPOSjj^VALUES. 


Saveint  Bit(1)     Array  used  to  save  the  status 

Array      of  the  interrupts;  arguecent 
in  call  to  Disabler  and 
Enabler. 

CPUREGS  Integer    External  structure  represent- 

Matnx     ing  the  CPU  registers  for  each 
processor.  " 

Item(i,j)  Integer    Represents  register  '  jf  en 

processor  ' i ■ . 

Current-  Integer    External  vector  used  to  iden- 

Process  Array      tify  the  process  executing  on 

processor  '  i*  (Array  .index)  . 


MODULE  DESCRIPTION 

This  primitive  was  designed  to  save  the  current  state  cf  the 
processor  in  the  save-area  (PCB  Field)  for  the  specified 
process. 


197 


MODULfi_^MPLE MENTATION 

/**#**   SAVE  STATE 
/*  THIS  PRIMITIVE  WAS  DESIGNED  TO  SAVE  THE  CURR 
OF  THE  PROCESSOR  ("PROCESSOR*")  J.N  THE  SAVEA 
THE  PECCESS  SPECIFIED  BY  "PINAHE".  UPCN  COttP 


^INCLUDE  NAMCHGE;       /*****      SAVE  STATE   *****/ 

'  THE  CURRENT  STATE 

;area  POR 
iPLETICN 
THE  CURRENT  PROCESS  FOR  THE  SPECIFIED  PROCESSOR  IS 
SET  TO  ZERO.  */ 


PRIHITIVE_SAVESTATE:  PROC  (PINAME, PROCESSOR*?  ,  ERPRM)  ; 

^INCLUDE  EEGSIRS; 
^INCLUDE  PCEECL; 
^INCLUDE  CSDCI; 

ON  CHECK  (ERROR) 
BEGIN; 

IF  (ERROR  -•=  0)  THEN  DO; 
ERPRM  =  ERROR; 
GO  TO  RETURN  POINT; 
END; 
END; 


DCL 
DCL 
DCL 


(PINAME,PROCESSOE#,ERPfiH)  FIXED  BINARY  (15); 
ERROR  FxXED  BINARY (15)  INIT(O); 
TEMPREG  (10)  FIXED  BINARY  (31); 

/**#  DISENABLE  ALL  INTERRUPTS  ***/ 

"_INT,, 


CALL  FRIMITIVE_INTEfiRU?T_DISENABLER(ALL_INT,SAVEINlS) ; 

/*  SAVE  THE  PROCESSOR  STATE  IN  PROCESS'S  PCB  */ 
TEMPREG  =  CPUREG5  (PROCESSOR*, *)  ; 

CALL  ERIMITIVE  PCBDATA  (PIMAHE, 3PUT , ESTATE, TEMP  REG , 

ERROR) ; 

/*SET  CURRENT  PROCESS  OF  THE  PROCESSOR  TO  ZERO*/ 
CURRENT_PROCESS  (PROCESSOR*)  =  0; 

/***  REENABLE  THE  INTERRUPTS  ***/ 
CALL  PRIMITIVE  INTERRUPT  ENABLES (ALL  I Nl , SAVEINTS)  ; 
RETURN  PCINI:     ~  ~         '    ~ 

END  PRIMITIVE  SAVESTATE; 
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MODULE  SPECIFICATION 

NAME:   BJSTOB£STATJ  TYPE:   PRIMITIVE 

PAEAHETEES 

INPUT OUTPUT TYPE CONTENTS 

P-Inc.me             Integer  Process  internal  name. 

Processor           Integer  CPU  allocated  to  the  process. 

Error     Integer  Returns  error  condition  code, 


EXTERNAL  CALIS  MADE  TO  OTHER  MODULES 
NAME PARAMETERS PUSPOS^_. 


Interrupt  Interrupt  Number,    This  module  is  invoked  tc  dis- 
Disabler   Save  Vector         able  all  interrupts  while 

Restorestate  is  in  execution. 

Interru-pt  Interrupt  Number,    This  module  is  invoked  to  re- 
enabier    Save  Vector         enable  ail  interrupts  which 

were  disabled  by  tne  current 
module  in  execution. 

PCEDATA    Process  I-Name,  This  module  is  invoked  tc  set 

Put/Get  Parameter,  the  CPU  registers  for  the  spe- 

Field  Identifier,  cified  processor  to  the  state 

Data  Parameter,  vector  saved  in  the  process's 

Error  Parameter  PCB. 


EXTERNAL  CAIIS  MADE  BY  OTHER  MODULES 
NAME  PURPOSE 


Scheduler  Restore  the  state  of  a  process  which 

was  blocked,  preempted  or  just  created. 

Interrupt  Handler    Restore  the  state  of  the  process  preemp- 
ted by  this  module  after  the  interrupt 
has  been  handled. 
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DATA  STRUCTURES  USED 

NAME ,_IIJLD 'TYPE IMPOSE/  VALUES. , 

SaveiHt  Bit(1)     Array  used  to  save  the  status 

Array      of  the  interrupts;  arguement 
in  call  to  Disabler  and 
1  Enabler. 

CPUREGS  Integer    External  structure  represent- 

flatrxx     ing  the  CPU  registers  for  each 
processor. 

Itera(i,j)  Integer    Represents  register  ' j •  en 

processor  ' i ■ . 

Current-  Integer    External  vector  used  tc  iden- 

Process  Array      tify  the  process  executing  on 

processor  '  i1  (Array  Index). 


MODULE  DESCRIPTION 

This  primitive  was  designed  to  set  the  registers  of  the  spe- 
cified processor  to  the  state  vector  saveo.  in  the  process's 
PC3  and  to  set  current_process  for  the  processor  to  the 
specified  process. 
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MODULE  IMPLEMENTATION 

^INCLUDE  NAMCHGB;        /**#**  RESTORE  STATE   *****/ 

/*  THIS  PRIMITIVE  WAS  DESIGNED  TO  RESTORE  THE  REGISTERS 
FOR  THE  PROCESS  SPECIFIED  EY  PINAME  FOR  THE  PROCESSOR 
SPECIEIED  3Y  PROCESSORS  AND  TO  SET  THE  CURRENT  PROCESS 
FOR  THE  PROCESSOR  TO  PINAME.  */ 


(CHECK  (ERROR)) 
PRIMITIVE  RESTC 


ORESTATE:  PROC  (PINAME, PROCESSOR* , ERPRM)  ; 


^INCLUDE  PCEECL; 
^INCLUDE  CSDCL; 
^INCLUDE  REGSTRS; 

ON  CHECK  (ERROR) 
BEGIN; 

IF  (ERROR  -=  0)  THEN  DO; 
ERPRH  =  ERROR; 
GO  TO  RETURN  POINT; 
END; 
END; 

DCL  (PINAME,PEOCESSOR#, ERPRM)  FIXED  BINARY(15); 
DCL  ERROR  FIXED  BINARY(15)  INIT(O); 
DCL  XEMPREG(10)  FIXED  BINARY(31); 

/***  DISENABLE  ALL  INTERRUPTS  ***/ 
CALL  PRIMITIVE_INTERRUPT_DISENABLER (ALL_INI, SA VEINTS)  ; 

/*  GIT  THE  PROCESSOR  STATE  SAVED  IN  THE  PROCESS'S 

PCB  */ 

CALL  ERIMITIVE  PCBDATA  (PI  liAME,a)GET,3STATE  ,TEMPREG  , 

ERROR) ; 

/*  SET  THE  PROCESSOR  REGISTERS  AND  UPDATE  THE 

CURRENT  PROCESS.  */ 

CPU3EGS  (PROCESSORS,*)  =  TEMPEEG; 
CURRENT_PR0CES3 (PROCESSORS)  =  PINAME; 

/*   REENABLE  THE  INTERRUPTS.  */ 

CALL  FRIMITIV£_INTERRUPT_ENABLER (ALL_I NT ,SAVEINTS) ; 

RETURN  EOINT: 
END  PRI?jITIVE_RESTORESTATE; 
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APPENDIX  D:   MODEL  INITIALIZATION  AND  IEST  PROGRAMS 


^INCLUDE  NAMCHGR;       /*****  HARDWARE  DRIVER  *****/ 
(CHECK  (ERROR))  : 

HEEIVEE:  PROC  OPTIONS  (MAIN)  ; 

/*  THE  HARDWARE  DRIVER  IS  USED  TO  SIMULATE  THE  PROCESSORS 
EXECUTING  THE  SCHEDULED  PROCESSES,  SETTING  INTERRUPTS 
AND  INVOKING  THE  INIERRUPT  HANDLER  AETER  AN 
AfffiOPEIATE  TIME  LAPSE  AND  PERFORMING  OTHER  FUNCTIONS 
OF  THE  HARDWARE.  */ 

ON  CHECK  (ERROR) 
BEGIN; 

IF  (ERROR  -.=  0)  THEN  DO; 

PUT  FILE  (SYSPRINT) LIST ('HARDWARE  DRIVER:  ERROfi=', 
ERROR)  SKIP; 
(NCCHECK  (ERROR)  )  : 

EEGIN;   ERROR  =  0;   END; 
END; 
END;   /*   ERROR  ON  CONDITION   */ 


DCL  ITIMI  f16)  FIXED  BINAEY(31)  STATIC, 
TIMES  FIXED  BINARY  (31), 
CPROC  (4)  FIXED  BINARY  (15)  STATIC  INIT((4)0) 


CINDX(4)  FIXED  BINARY  (15)  STATIC  INIT((4)0), 
CREG(IO)  FIXED  BINARY  (31J  STATIC  INII  ( ("ID)  0)  # 
ERROR  FIXED  BINARY  INIT(O), 
IC  FIXED  BINARY  EXTERNAL; 

CURRENT  PROCESS  =  0; 
CALL  INITIALIZATION; 

CALI  TESTER; 

DO  FOREVER; 

PUT  FILE  (SYSPRINT)  LIST (' HARDWARE  DRIVER  -  TOP')  SKIP; 

/**   EXECUTE  ONE  "STEP"  ON  EACH  PROCESSOR   **/ 
DO  I  =  1  TO  NUNcCPU; 

IF  (CURRENT  PROCESS (I)  -=  CPROC  (I) )  THEN  DO; 

/**#   SAVT,  THE  IDENTIFICATION  CF  THE  PROCESS  BEING 

run  ***v/ 

CPROC  (I)  =  CURRENT  PROCESS  (1)  ; 
CINDX(I)  =  CPUREGS"TI#1)  ; 
END; 

/***   SET  THE  INSTRUCTION  COUNTER  FOR  SIMULATION  */ 
IC  =  Ci- UP.EGS  (1,2)  ; 
IF  (CUERENT_PROCESS  (I)  -•=  0)  THEN  DO; 

PUT  FILE  (SYSPRINT)  LIST  ('INDEX='  ,CINDX  (I)  )  ; 
PUT  FILE (SYSPRINT)  LIST  (  ■  •)  SKIP; 
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/**   EXECUTE  THE  PROCESS   **/ 
DO  ACTION  OF  CASE  (CiNDX  (I)  )  ; 

£ASE(1)7   CALL  SUPERVISOR;    ENDCASE; 
CASE  (2)  : 

PUT  FILEJSYSPRINT)  LIST  (' TERMINATOR  -  DUMKY'); 
/*  CALL  TERMINATOR;     */ 
ENECASE; 


CASE  (3)  ' 

PUT  FILE(SYSPRINT) 

/*   CALL  INITIATOR;    */ 


PUT  FILE  (SYSPRINT)  LIST (' INITIATOR  -  DUMMY'); 


EN  ECASE • 

CASE  (4):  CALL  INPUT  CONTROLLER;  ENDCASE; 
CASE(5)  :  CALL  OUTPUT'  CONTROLLER;  ENECASE; 
CASE(6):   CALL  EILE  MANAGER;  ENECASE; 

CASE{7):   CALL  OPEBlIOR  SYSTEM  COMMUNICATOR; 

ENECASE; 
CASE{8):   CALL  FILE  SPACE  MANAGER;      ENDCASE; 
END  OF  CASES*  " 

/*  "CHECK  TO'SEE  IF  A  PROCESS  HAS  2EEN  PREEMPTED. 

II  SO,  SAVE  THE  CORRECT  INSTRUCTION  COUNTER  FOR 
SIMULATION  PURPOSES.  */ 

IF  (CPROC(I)  -.=  CURRENT  PROCESS  (I))  THEN  DO; 
CEEG(1)  =  CINDX(I)  ;   " 
CE£G(2[  =  IC: 

CALL  PRIMITIVE  PCBDATA  (CPROC  (I)  , SPOT, ©STATE, CREG, 

ERROR) ; 
END; 
ELSE 

/***   SAVE  THE  SIMULATION  INSTRUCTION  COUNTER 

*  *  *  *  *  / 

CPUREGS  (1,2)  =  IC; 
END; 

/*  CHECK  INTERRUPTS  */ 

TIMER  =  TIMER  +  5;   /*  INCREMENT  THE  CLOCK  */ 
DO  J    =  1  TO  NUMBINT* 

/*#*  IF  THE 'TIME  FOR  AN  INTERRUPT  TO  CCCUE 

HAS  ELAPSED  THEN  SET  THE  INTERRUPT    **/ 
IF(  (INTRUPT(J)  )  &     (ITIHE(J)  >=  TIMER)  >  THEN  DO; 
IN1RSET (I)  =  TRUE; 
PUT  FILE  (SYSPRINT)  LIST  ( 'INTERRUPT « ,1 ,' SET «V  ; 

/* 

CAIL  INTERRUPT  HANDLER; 

*/ 

END; 

END; 
END; 
END;   /*  OF  DO  FOREVER  */ 

SIARTIO:  ENTRY  (INTERRUPTS)  ; 

/****  THIS  PROCEDURE  SIMULATES  STARTING  AN  I/O 
DEVICE  -  THE  BASE  TIME  IS  SAVED  TO  CHECK 
ELAPSED  TIME  TO  SET  THE  INTERRUPT         ****/ 

DCL  INTERRUPT*  FIXED  BINARY  (15), 

DEVTIME(16)  FIXED  BINARY  (15)  STATIC  INIT  (  f  1  6)  50)  ; 

/*  DEVTIMS  IS  THE  AVERAGE  LENGTH  OE  TIME  REQUIRED 

fOR  A  DEVICE  TO  PERFORM  IIS  FUNCTION  */ 

ITIKE  (INTERRUPTS)  =  TIMER  +  DEVTIME  (INTERRUPTS )  ; 
RETURN; 
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TESTFR"PBCC* 

/**;*   1KjS  PROCEDURE  IS  USED  TO  SET  THE  SYSTEM  STATE 

EOR  TEST  PURPOSES.  ***/ 

/***  TRACE  IS  USED  TO  ENABLE  PRINT  STATMENTS  IN 

•SELECTED  PROCEDURES.  *****/ 

DCL  TRACE  BIT {  1)  EXTERNAL; 
TRACE  =  TRUE; 

^INCLUDE  REQRELD; 

DCL  TEST  MSGS  (3)  CHAR<8)  INIT  ('IPDEV1   •  , 
'OTDEV1   ' , 'FOPDEV1  ')  ; 

/***   RELEASE  MESSAGES  TO  CREATE  DEVICES  FOE  THE 
INPUT  CONTROLLER,  OUTPUT  CONTROLLER  AND  THE 
FILE  MANAGER.  *****/ 

ALLOCATE  MESSAGE  BUFFER  SET (MESSAGE) ; 

MSG  SEMAFHOEE,FI"ELD2/FIELD3,FIELD4.FIELD5,FIELD6   =  0; 
CHAT?  EIEIL1,CHAR  FIELD2,CHAR  EIELD3,CHAR  FIELD4  =  '•; 
ANSWER  REQUEST  =~FALSE; 
FIELE1~  =  SiJCL; 
K  =  4,- 
DO  I  =1  TO  3; 

ALLCCAIE  INPUT  BUFFER  SET  (IBUFPTR)  ; 
EUEEER  LOCATION  =  IBUFPTR; 

IF  <I<37  THEN  INPUT  BUFFER  =  «5)a)ADD  •  |  |  TEST  MSGS  (I)  ; 
ELSE  INPUT  BUFFER  =-,o)a)ADD  »  |  |  TEST  MSGS(3)|T 

•BIG  BIRD* ;   ~" 
CALL  PRIMITIVE  RELEASE (K7$INPUIf MESS AGE, ERROR) ; 
END; 

END  TESTER; 

END  HEEIVER; 
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^INCLUDE  NAMCHGR; 
(CHECK (EBEOR) ) 
INITIALIZATION 


/*****  INITIALIZATION   *****/ 


PRCC  OPTIONS  (MAIN)  ; 
DCL  TRACE  BIT  ( 1)  .  EXTERN  AL  ; 
IF  TRACE  THEN 

PUT  FILE  (SYSPRINT)  LIST  (' ENTERING  INITIALIZE'); 
ON  CHECK  (ERROR) 
EEGIN; 

IE  (ERROR  -.=  0)  THEN  DO; 
PUT  FILE  (SYSPRINT)  LIST  ('IN  INITIALIZE,  ERROR  = 

ERROR)  SKIP  ; 
(NOCHECK  (ERROR))  :  BEGIN;  ERROR  =  0;  END; 
END; 
END; 


—  —  — '   i 

DCL    ERROR    FIXED    BINARY    INIT(O) 
:lude    EEQRELD; 


%Ii. 

^INCLUDE 
^INCLUDE 


SEGSTR5; 
I NT ACT V; 


/tinv-tuui.      i  u  l  d  v.  x  i   , 

^INCLUDE    INISET; 
^INCLUDE    CASESIIl; 


/***    INITIALIZE    INTERFACE    VARIAELES    ***/ 
ANYPROC    =    0; 


fctfACCES 
##ACQRD 
#ASSGND 
fcifAVAIL 


•  L^  jb       — 


=    '01 ■ B; 
=    '10'B; 

Si 


—       MIR 


£CRAIR    = 
fcCNI    SZ 
^DEVICE 
tDINABE 
#DSTAT    = 
#FILE    = 
#FND0P1 
#FNDCf 2 
#FNDOP3 
#PHPCPft 
f-FND0P5 
£GE1    =     • 
##GO    =    ' 
fc#HOLE    = 
#LEET    = 
#L    QUE    = 
t-^TJOACC 
##MOAVL 
#OFILE    = 
##OPIH    = 
#OS    =    '0 
#0»NEB    = 
#PCT    =    4 
SPCTNAM 
»f  #  P  E  B  fl  P 
ttt-PRIV    = 

#PU1    =    • 

ftfREAE  = 
fctfREAEA 
fcttREAER 
>*#REA£S 
IBIGH2  = 
*fi  QUE  = 
##"3ACBI 
$  #  S  A  C  R  = 
ft  S  £  M  i  C  R 
##SHRE  = 


&, 

=  2; 
=  3; 
=  4; 
=  5; 
1'B; 
1«B: 

•0»B; 
«0'B; 

=  *00'B; 
=  3; 

•O'B; 

'I! 

Mi 

1; 

0'B; 


1»B; 


=  1 


1  1  •  B; 


\; 


0; 


205 


#S  OB  P 

K#TEElF 

*TFILI  = 

fcffTGEEF 

*USEB  = 

##WEI1E 

##WEI1A 

##«BI1H 

##WBI1B 

##«EI1S 

#X«AHI  = 

S$ADE  = 

SSC1CSI 

SSDELI1 

SSDIBAD 

SSDIBDL 

S3DIBBD 

S3DONE  = 

SSDS1YF 

SSEOI  = 

SSEX1NT 

SSFAII  - 

SSFILOP 

S$I»IPC= 

$$JCI  = 

S$OPENF 

SSOFCGM 

$$0PB1B 

SSPASS  = 

$$PEBMF 

$.$BEAE  = 

S$SPACE 

S$SPCHN 

5SSTCP  = 

SSTEMPF 

SSTEBtl  = 

S$WBI1E 


M'B; 

=  1! 

:  n 

=  T9 
=  17 

=    6: 
=  20; 

=  0; 

-'IS 


3B0E 

32BH 

SCHI 

6JCYC 

SFST 

SPHC 

clGEl 

&LFT 

BMSG 

SNB 

c)PA"5 

SPE 

cJPRT 

3PU1 

cJQUA 

cJEiiS 

asGi 

cJSTA 
6JSTA 
cJSYS 
iJXNA 


HNB  = 

VFC  = 
ID  = 

Jut     = 

Al  = 
NIB  = 

=  ■  1 
SIB  = 
FIE  = 
PGS  = 
EKT  = 
NB  = 
51 Y  = 

=  '0 
NTH  = 
VIC  = 
SIB  = 
II  = 
I  US  = 
150  = 
MI  = 


9; 
11 

1  E* 

i 

1; 

•E; 

Ji 

1; 


aSBLKDB 

dSBLKCl 
Di)BEDYA 
c)a,BUN  = 
cJdJSUSPD 


=  'BLOCKEDP' 
=  '  BLOCKED! ' 
=  'READY  A'; 
'  BUNKING' ; 
=  'SUSPEND' ; 
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/***  INITIALIZE  LIMIT  VARIABLES  ***/ 

PCB_LIM  =  50; 

ALL  INT  =  0: 
NUM"ElNT  =  16; 
NUMECEU  =  4; 
DEV  I  LIMIT  =  101; 
DEV~U~LIMIT  =  110; 
FILE"  I  LIMIT  =  51; 
FILE~U~LIMII  =100  ; 
PCT  I  IIMIT  =  111  ; 
PCT  U'LIMII  =  120; 
SEH  L~LIMIT  =  1; 
SEM~LlMII=  50; 

CPUREGS  =  0: 
INIRUPT  =  »0,B; 
INIESET  =  'O'B; 

DCL  SIAI£(10)  FIXED    BINARY  (31); 

DCL   SYS  PROC  EIT(1),EXT  NAM  CHAR  (8)  ; 

DCL  (f ATHEE, BROTHER ,PRI, CYCLE, I NAME, LA STPROC) 

FIXED  BINARY; 
DCL  SYSPROCESS  (3)  FIXED  BINARY: 
DCL  ACCESS  (120)  BIT  (2)  INIT  (  (120)  (1)  «  01  •  3)  ; 
DCL  CWNEE  FIXED  BINARY,  DUMMYFB  FIXED  BINARY  INIT(O), 

DUMMYB1  BIT  (1)  : 
DCL  EUMMYCHAR  CHAR  (8)  INIT((8),«); 
DCL  NULLEIR  POINTER; 
DCL  MSG_INIT  POINTER; 

/*   INITIALIZE  A  MESSAGE  BUFFER   */ 
ALLOCATE  MESSAGE  BUFFER  SET  (MESS AGE)  ; 
MSG  iail  =  MESSAGE; 

FIElD1,EIELD2/FISLD3,FI2LD4,FIELD5,FIElD6  =  0; 
CHAR  EIELD1.CHAR  FI£LD2,CHAR  FIELD3,CHAR  FIELD4  =  '  »; 
RELElSOR  =  0: 
MSG  SEMAPHORE  =  0; 
ANSWER  REQUEST  =  FALSE; 
BUFFER_LCCATION  =  NULL; 

/***  CREATE  PCB  FOR  ERROR  HANDLER  ***/ 
CALL  PCBINIT; 

/***SET  INITIAL  SYSTEM  STATS  ***/ 
SYS  PROCESSOR  .PROCESSOR  =  1; 
CUfi"EENT_PROCESS(SYS_PEOCESSOR)  ,SYSPROCESS  (1)  =  1; 

/***  ADD  CODE  FOR  PAGE  TABLE  INITIALIZATION  ***/ 

/***  SET  STATE  FOR  THE  ERROR  HANDLER  ***/ 
INAME  =  1; 
CALL  ERIMITIVE  PCBDAT A (I NA ME ,SPUT, 3PE  NR,SYS  PROCESSOR, 

ERROR) ; 
STATE  =  0; 
STATE  (1)  =  1  ; 
STATE  (2;  =  1  • 
CALL  ERIMITIVE_PCBDATA  (INAME,  a)PUT,  ESTATE  ,  STATE,  ERROR)  ; 

/**  INITIALIZE  MESSAGE  BUFFER  FOR  ERROR  HANDLER  **/ 
ALLOCATE  MESSAGE  BUFFER  SET  (MESS AGE)  ; 

MESSAGE  ->  MESSAGE  BUFFER  =  MSG  INIT  ->  MESSAGE  EUEEER; 
CALL  EEIMITlVE_PCbTJATA  (IN  AME  ,  a)  PUT,  d/MSGPTR  ,  MESS  AG"£  , 

EBROu)  ; 

/**  INITIALIZE  RESOURCE  VECTOR  FOR  ERROR  HANDLER  **/ 
CALL  EBIHITIVB  PCBDAT  A  (I  NAME  ,ojPUX,  3BES  VEC, 

'SEM  L  LIMIT, PCT  U  LIMIT , ACCESS , ERRO R) ; 
ACCESS  =  'OO'BJ    "  " 
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/*  INITIALIZE  A  PCB  FOE  THE  TERMINATOR  */ 
SYS  P30C  =  TRUE; 
FATHER  =  .1: 
BROTHER  =  0; 
PRI  =  49: 
CYCLE  =  0; 

EXT  NAM  =  'TERMINTR'; 

CALX  GETPCB (FATHER, BROTHER, EXT  NAM, PRI, SYS  PROC, STATE, 
INAME, CYCLE, ERROR)  ; 
STAIf  (2)  =  2  * 
CALL  PRIMITIVE  PCBDATA  (INAME  ,<z)PUT,  SSTATUS  ,d)5)REDYA  , 

ERROR) : 
CALL  PRIMITIVE  PCBDATA (INAME ,oPUT, 3STATE  , STATE , ERRCR)  : 
CALL  £RIHITIVE~PCBBATA(INAHE,a)PUI,3PE  NR,SYS  PROCESSOR, 

ERROR) : 
ALLOCATE  MESSAGE  BUFFER  SET  (MESSAGE)  ; 

MESSAGE  ->  KESShGE    BUFFER  =  MSG  INIT  ->  MESSAGE  EUFFER; 
CALL  ERIMITIVE_PCBl)ATA  (INAME, 3PUT,3MSGPTfi, MESSAGE, 

ERROR) ; 
FATHER, SYSPROCESS  (2)  =  INAME; 

/***  INITIALIZE  PCB'S  FOR  SYSTEM  PROCESSES  ***/ 
DO  I  =  1  TO  6; 

DO  ACTION  OF  CASS  {I)  ; 
CA"SE(1)  :"*/*  INITIATOR   */ 

EXT  NAM  =  'IMITATOR'; 

PEI"  =  4-8; 
E NECAS E  * 
CASE  (2):  /*   INPUT  CONTROLLER  */ 

EXT  NAM  =  'INCONTRL'; 

FRI~=  48; 
ENECASE • 
CASE  (3):  /*  OUTPUT  CONTROLLER  */ 

EXI_NAM  =  'OUTCNTRL'; 

PRI  =48; 
EK  ECASZ • 
CASE  (4):  /*  FILE  MANAGER  */ 

EXT  NAM  =  'FILEMNGR1  ; 

PRI  =  45; 
E  N  EC A  SE " 
CASE  (5):  /*  OPERATOR  SYSTEM  COMMUNICATOR  */ 

EXT  NAM  =  'OP  COMM' ; 

PRI~  =  49; 
ENECASE; 


CASE  (6):  /*  FILE  SPACE  MANAGER  */ 
EXT_NAM  =  'SPACEMAN'; 


PRI  =  45; 
BHOTHEB  -    0; 
FATHER  =  SYSPROCESS  (6)  ; 
ENECASE: 
END  OF  CASES: 
CALX  GrTPCB (FATHER, BROTHER, EXT  NAM  ,PRI,SYS  PROC, STATE 

.INAME, CYCLE, ERROR)  ; 
IF  TRACE  THEN  PUT  FILE  (SYSPBINI)  LIST( 

'CASE  INDEX  =',I,'INAME  =', INAME)  SKIP; 
BROTHER  =  INAME; 
CALL  PRIMITIVE  PCBDATA  (INAME, 3PUT,3PE  NB, SYS  PROCESSOR 

,  ERROR)  ; 
ALLOCATE  MESSAGE  BUFFER  SET  (MESSAGE)  ; 

MESSAGI->MESSAG£~BUFFEB  =  MSG  IN IT->MESSAG E  BUFFER; 
CALL  PRIMITIVE  PCBDATA  (INAME, 3PUT, 3MSGPTR, MESSAGE , 

ERROR)  ; 

,',,;()   =   J   +   2" 

CALL  PRIMITIVE  PCBDAT A (I NA ME ,3PUT, 3ST  AT E.SIA TE , E BBOB)  ; 
CALL  PRIMITIVE"  PCB  DAT  A  (IN  A  ME,  a  PUT,  3S1  AT  US  ,  J)  a)  RED  Y  A  , 

"  ERROR)  ; 

SYSPROCESS  (.T+2)  =  INAME: 
IF  (  (I>1)  6  (I  <  6)  )  THEN 

CALL  PRIMITIVE  PCBDATA  (LASTPROC,  a)P  UT  ,  SLFTSI  E  ,  I  NAME, 

ERROR) ; 
LASTPROC  -=  INAME; 
END; 
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/*  CCNNECT  LINEAGE  OF  SYSTEM  PROCESSES  */ 
FAIHEB  =  SYSPROCESS  (2)  : 

LASTPROC  =  SYSPROCESS  (7)  ; 

CALL  PBIHITIV-E  PCdDATA  (FATHER,  -iPUTr 


ERROR) 
/*  CCNNECT  FILE  SPACE  MANAGER'TO  FILE  MANAGER 


3CHILD, LASTPROC, 
*/ 


FATHER  =  SYSPROCESS  (6)  . 
LASTPBOC  =  SYSPROCESS (8): 

CALL    PRIMITIVE    PCBDATA  (FATHER,  cDPUT  .3CHILD,  LASTPROC  , 

ERROR)  ; 

/*  SEI  UE  SEMAPHORES   */ 
DO  I  =  1  TO  1 9 ; 

DO  ACTION  OF  CASE  (I)  ; 

CASE  (1)7  EXT  NAM   =  'ENDJOB': 

OKH'BB  -  SYSPROCESS  (2)  ;  /*  TERMINATOR  */ 
EN  ECASE • 
CASE  (2)  :  '-EXT  NAM  =  'ERROR'; 

OWNER  =  SYSPROCESS  (1)  ;  /*  ERROR  HANDLER  */ 
ENECASE; 
CASE  (5):  EXT  NAM  =  'FILEOP'; 

OWNER  =  SYSPROCESS  (6)  ;  /*  FILE  MANAGER  */ 
ENECASE; 
CASE  (4):  EXT  NAM  =  'INAME'; 

OWNER  =  SYSPROCESS  (3)  ;  /*  INITIATOR  */ 
ENECASE; 
CASE  (5):  EXT  NAM  =  'INFUT'; 

OWNER  =  SYSPROCESS  ('J)  ;/*  INPUT  CONTROLLER*/ 
ENECASE; 
CASE  (6):  EXT  NAM  =  'JOBQSP'; 

OWNER  =  SYSPROCESS (4) ;/*  INPUT  CONTROLLER*/ 
ENECASE; 
CASE  (7):  EXT  NAM  =  'NEWJOB'; 

OWNER  =  SYSPROCESS (3) ;  /*  INITIATOR  */ 
ENECASE: 
CASE  (3)  :  EXT  NAM  =  'OPS  IO«; 

OWNER  =  SYSPROCESS (7) ;/*  CP  COMM*/ 
E N ECASE  *  """ 

CASE{9):*EXT  NAM  =  'OUTPUT'; 

OWNER  =  SYSPROCESS (5) ;/*OUTPUT  CONTROLLER*/ 
ENECASE; 
CASE(10):  EXT  NAM  =  'REDYAQUE'; 
OWNER  =  SYSPROCESS (1) 
EN  ECASE " 
CASE  (11):  EXT  NAM  =  'lEUFfER': 
OWNER  =  SYSPROCESS  (1) 


ENECASE; 
CASE  (12)  : 

ENECASE; 
CASE  (13)  : 

ENECASE; 
CASE  (14)  : 

ENECASE; 
CASE  (15)  : 


EXT  NAM  =     'INTDEV  ; 

OWNER  =  SYSPROCESS (1) 

EXT  NAM  =  'OBUFFER' ; 

CWNErt  =  SYSPROCESS  (1) 

EXT  NAM  =  'PUTOUT' ; 

OWNER  =  SYSPROCESS  (5) 


EXT  NAM  =  • WAIT'  ; 
OWNEK  =  SYSPROCESS (1) ; 
ENECASE; 
CASE  (16):  EXT  NAM  =  ' INTEREPT'; 
OWNER  =  SYSPROCESS  (1) 
ENECASE; 
CASE  (17):  EXT  NAM  =  'INTDEV; 

OWNER  =  SYSPROCESS  (1) 
ENECASE; 
CASE  (18):  EXT  NAM  =  'SPACE'; 

OWNER  =  SYSPROCESS  (8) 
ENECASE; 
CASE  (19):  EXT  NAM  =  '  PfilNTQ' ; 

OWNER  =  SYSPROCESS (A) 
ENECASE; 
ENE  OF  CASES; 
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CALL  CREATE 


IF  TRACE  THE 

■CASE  INDE 

ACCESS  (INAME 

DO  ACTION  OE 

CASE  (1)7  $ 

CASE  (2  :  $ 

CASE  (3  ;  $ 

CASE  (4)  :  $ 

N 

D 


RCE  (JfSEHFOR,  EXT  NAM, 
DUMMYCHAR,DUMMYF 
INAME, 

N  PUT  FILE 


ERROR) 
(SYSPRINT) 


OWNER, £UMMYFB,DU 
B,DUMMYFB,DUMHYF 


KMYFB, 


A   -   »  X  |   i  « 

)  =  fr#ACCE 

CASE(I)  ; 
£NDJOB=  IN 
ERROR  =  IN 
FILEOP  =  I 
INAME  =  IN 
ULLPTR  =  N 
0  J  =  1  TO 
CALL  PRIM 


A ME  =« ,INA 


A  a  £ ; 
AME; 
NAME; 
AME; 
ULL; 
30; 
ITIVE 


ENDCA 
ENDC 


LIST  ( 
ME)  SKIP; 


ENDCASE; 
SE; 
ASE; 


i 


*  3i 


ENE 
CASE 
CASE 
CASE 
CASE 
CASi, 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
ENE  OF 
END;  ~ 
MESSAGE 
DO  I  =  1 
I  NAM 
IF  ( 
CALL 


E 

CASE; 

(5)  :  S 

{6  ;  $ 

1)  :  $ 


9 

10 
(11 
(12 

13 
(14 

15 
(16 
I17i  : 
(18  : 
(19)  : 

CASES 


ND; 

INPUT  = 
JOBQSi?  : 
NEWJOB  : 
OPR  10  ■ 
OUTPUT  • 
#REDYA  ■■ 
$IBUFF= 
$INTDEV 
SOEUFE= 
SPUTOUT 
$HAIT  = 
SINTRPT 
SINIDEV 
SSPACE  ■■ 
SPBINTQ 


0  USER  JOBS  MAXI 
ASE  (ANYPROC, $INA 
NULIfTR, ERROR)  ; 


ELE, 


MUM  */ 

ME, 


I  NAME: 

=  INAME 
:  INAME 
=  INAME 
=  INAME 
=  INAME 

INAME; 

=  INAME; 

INAME; 

=  INAME; 

INAME; 

=  INAME; 

=  INAME; 
=  INAME; 

=  INAME; 


ENDC 

ENDC 
ENDC 
ENDC 
ENDC 
END 
ENDC 

EN 
ENDC 

EN 
ENDC 

EN 

EN 

ENDC 

END 


ASE; 

ASE; 

ASE; 

ASE; 

ASE; 

CASE; 

AS.&; 

ECASE; 

ASE; 

DCASE; 

ASE; 

DCASE; 

DCASE; 

ASE; 

CASE; 


=  MSG  INIT: 

TO  87 
E  =  S 
I  >  1) 

PBIHI 


END 


CALL  PRIMI 
CALL  ECBPU 

DO  J  =  1  T 

ALLOCATE 
BUFFER  L 
CALL  PR" I 

ALLOCATE 
BUFFER  L 
CALL  PlI 

END; 

END: 
FRuE    MESSAGE 
CURRENT    PROCE 
CALL    PElHITIV 

INITIALIZATION 


YSPROCESS  (I 

THEN 
TIVE  PCBDAT 

SEM~L  LI MI 

TIVE  PCBDAT 

Tg  (f?xTEDYA,# 

DUMMYF3, 

0   2; 

OUTPUT  BUF 
OCATIOK  =  0 
MITIVE_RELE 

INPUT  BUFF 
OCATIOTJ  =  I 
MITIVE  RELE 


)  ; 

A  (INAME, 3 
T,PCT  U  L 
A  (I,o)"SET, 
OS,I,DUMri 
ERROR) ; 


FUT,8£ESVEC, 

I KIT, ACCESS, ERRO 

aPRIRTY,PRI. ERRO 

YFB,PPI,NULLPTR, 


II 


FER  SET  (CBUFPTR) ; 

BUrPTR; 

ASE  (INAME 

ERROR 
ER  SET  (IB 
EUFP'IE; 
ASE  (INAME 

ERROR 


.$OBUFF, MESSAGE, 

UFPTR)  ; 


,$I£UFF, MESSAGE, 

) ; 


->  MESSAGE  EUFFER; 

SS  =  0: 

E  SCHEDULER; 
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y*  ***************************** 

PREPROCESSOR  SIMULATION  MACRO.  USED  TO  INCLUDE  THE 
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"ENAELED"  BY  ^INCLUDE  SIMULTB;  */ 

5SDCL  SIM  START  ENTRY  (CHAR)  RETURNS  (CHAR)  ; 

%DCI  SIH~INTEEBUPT  PT  ENTRY  RETURNS (CHAR)  ; 

%DCL  aSIlET  EIXED;T 

JSDCL  SIM_END  CHAR; 

X2SIMPT  =  1 : 

%SIM  END  =  'DCI  SMLPT  (d'SIMPT)  LABEL;  IC  =  1  ; 

SIMEND:  RETURN; « ; 

XSIM_SIART:  EROC  (d/SIMNAM)  RETURNS  (CHAR); 

DCL  (£5IMNAM,a)SIMRET)  CHAR; 
aSIMRET  =  'DCL  IC  FIXED  BINARY  EXTERNAL; 

PUT  FILE (SYSPRINI)  LIST ("  ENTERING"  ,  •  «  « 
HaSIMNAM  |l»  '  •  ,i  •IC=«  '  ,IC)  ;  GOTO  SMLP1  (IC)  ; 
SMLPI  ( 1 ) :  " ' 
RETURN  (SSIMRST)  ; 
SS.END; 

%SIM_INTEERUET_PT:  PROC  RETURNS (CHAR) ; 

3SIMPT  =  SSIMPT  +1; 

REIURN(»IC  =  3SIMPT;  GO  TO  SIMEND;  SMLPT  (a)SIMPT)  :  ;•); 
%END; 
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